代码搜索：repeat
找到约 6,690 项符合「repeat」的源代码
代码结果 6,690
www.eeworm.com/read/246404/12727688
pas ac1102.pas
program tju1102;
const
maxn=20000;
var
a:array[1..maxn]of word;
n,i,t,u,op,len,maxlen:word;
begin
repeat
read(n);
for i:=1 to n do
read(a[i]);
op:=n;maxlen:=0;
www.eeworm.com/read/246404/12727698
pas ac1131.pas
program tju1131;
var
n,x:longint;
a:qword;
begin
repeat
read(n);
n:=power(2,n);
a:=n+1;
a:=a*n div 2;
repeat
read(x);
dec(a,x);
dec(n);
un
www.eeworm.com/read/246404/12727868
pas ac1106.pas
program tju1106;
var
k,a,b,c:qword;
begin
repeat
read(k);
b:=1;c:=1;
repeat
a:=b;b:=c;c:=a+b;
until c>k;
writeln(a*a+b*b);
until seekeof;
end.
www.eeworm.com/read/246404/12728051
pas ac1189.pas
program tju1189;
const
maxn=500;
var
adj:array[1..maxn,1..maxn]of boolean;
route,dist,q:array[1..maxn]of word;
m,n,i,j,f,r:word;
begin
repeat
fillchar(adj,sizeof(adj),0);
f
www.eeworm.com/read/246404/12728084
pas ac1121.pas
program tju1121;
const
tail:array[0..9,0..3]of byte=((0,0,0,0),(1,1,1,1),(6,2,4,8),(1,3,9,7),
(6,4,6,4),(5,5,5,5),(6,6,6,6),(1,7,9,3),(6,8,4,2),(1,9,1,9));
var
a,b:longint;
begin
r
www.eeworm.com/read/246404/12728132
pas ac1102.pas
program tju1102;
const
maxn=20000;
var
a:array[1..maxn]of word;
n,i,t,u,op,len,maxlen:word;
begin
repeat
read(n);
for i:=1 to n do
read(a[i]);
op:=n;maxlen:=0;
www.eeworm.com/read/246404/12728142
pas ac1131.pas
program tju1131;
var
n,x:longint;
a:qword;
begin
repeat
read(n);
n:=power(2,n);
a:=n+1;
a:=a*n div 2;
repeat
read(x);
dec(a,x);
dec(n);
un
www.eeworm.com/read/246404/12728216
pas ac1015.pas
program tju1015;
var
s:string;
c:char;
begin
repeat
s:='';
repeat
read(c);
case c of
'@':s:='';
'#':if s>'' then delete(s,length(s),1);
el
www.eeworm.com/read/246404/12728261
pas ac1014.pas
program tju1014;
var
n,f,c:longint;
begin
repeat
read(n);
f:=5;c:=0;
while f
www.eeworm.com/read/246404/12728342
pas ac1007.pas
program tju1007;
var
a,s:longint;
begin
repeat
read(a);
inc(s,a);
until seekeof;
writeln(s);
end.