代码搜索：Byte
找到约 10,000 项符合「Byte」的源代码
代码结果 10,000
www.eeworm.com/read/339554/12225292
pas ac1159.pas
program tju1159;
const
maxparts=8;
maxdigits=12;
var
p:array[0..maxparts]of byte;
d:array[1..maxdigits]of byte;
n,count:longint;
procedure search(l,x,d0:byte);
var
i,t,d1:byt
www.eeworm.com/read/339554/12225299
pas ac1107.pas
program tju1107;
const
maxn=6;
maxk=10000;
var
flag:array[0..maxk]of byte;
a:array[1..maxn,1..maxn]of longint;
t,n,k,i,count:word;
procedure search(l:byte);
var
x,y,i:byte;
www.eeworm.com/read/339554/12225333
pas ac1100.pas
program tju1100;
const
maxbad=20;
maxtime=600;
var
time:array[1..maxbad]of byte;
ok:array[0..maxtime]of boolean;
a,b,c,d:byte;
function need(n:byte):word;
var
i,j,s:word;
www.eeworm.com/read/339554/12225491
pas ac1025.pas
program tju1025;
const
maxn=10;
maxsum=2*sqr(maxn)-1;
var
prime:array[2..maxsum] of boolean;
ans:array[1..maxn,1..maxn,1..maxn]of byte;
next:array[0..sqr(maxn)]of byte;
t,i,n,x,y:b
www.eeworm.com/read/339554/12225496
pas ac1089.pas
program tju1089;
const
max=100;
var
adj:array[1..max,1..max]of boolean;
my:array[1..max]of byte;
vy:array[1..max]of boolean;
n,m,i,j,count:byte;
function aug(x:byte):boolean;
var
www.eeworm.com/read/339554/12225517
pas ac1030.pas
program tju1030;
const
maxl=100;
type
factorlist=record
count:byte;
value:array[1..3]of byte;
e:array[1..3]of byte;
end;
var
prime:array[1..maxl]of byte;
factor:array[
www.eeworm.com/read/339554/12225533
pas ac1090.pas
program tju1090;
const
maxn=100;
type
bignum=array[-1..57]of word;
var
a:array[1..maxn]of bignum;
i,j:byte;
t:bignum;
procedure mul(var a,b,c:bignum);
var
i,j:byte;
begin
www.eeworm.com/read/339554/12225599
pas ac1000.pas
program tju1000;
var
a,b:byte;
begin
read(a,b);
writeln(a+b);
end.
www.eeworm.com/read/339554/12225601
pas ac1095.pas
program tju1095;
const
maxn=100;
tail:array[0..9]of byte=(6,6,2,6,4,4,4,8,4,6);
var
a:array[0..maxn]of byte;
i,l,five,ans:byte;
s:string;
begin
repeat
readln(s);l:=length(s);
www.eeworm.com/read/339554/12225605
pas ac1001.pas
program tju1001;
var
n,i:byte;
c:char;
procedure printline(x:byte);
var
i:byte;
begin
for i:=1 to (n-x)*2 do write(' ');
if x>1 then begin
write(c);dec(c);
f