代码搜索：repeat
找到约 6,690 项符合「repeat」的源代码
代码结果 6,690
www.eeworm.com/read/246404/12727448
pas ac1108.pas
program tju1108;
const
maxn=100000;
var
a,b:array[0..maxn+1]of longint;
n,i,x,ans,l,r:longint;
begin
repeat
read(n);
for i:=1 to n do begin
read(x);b[x]:=i;
end;
www.eeworm.com/read/246404/12727523
pas ac1175.pas
program tju1175;
const
maxwords=10000;
var
w:array[1..maxwords]of string;
a,pre:array[1..maxwords]of word;
last:array[0..26]of word;
t,u,n,i,l,r,m:longint;
s1,s2:ansistring;
c:c
www.eeworm.com/read/246404/12727612
pas ac1160.pas
program tju1160;
var
s:string;
c:char;
x:extended;
k,a:longint;
begin
repeat
s:='';
repeat
read(c);
if c=' ' then break;
s:=s+c;
until false;
www.eeworm.com/read/246404/12727695
pas ac1111.pas
program tju1111;
const
maxn=500;
var
s,e:array[1..maxn]of word;
a,p:array[1..maxn*2]of word;
n,i,j,x,y:word;
procedure qsort(s,t:word);
var
p,i,j,tmp:word;
begin
if s>=t
www.eeworm.com/read/246404/12727751
pas ac1191.pas
program tju1191;
const
maxt=1100;
maxw=101;
var
score:array[0..maxt,-1..maxw]of longint;
w,h,a,b,c,d,m,time:longint;
begin
repeat
fillchar(score,sizeof(score),0);
read(w,h)
www.eeworm.com/read/246404/12727929
pas ac1108.pas
program tju1108;
const
maxn=100000;
var
a,b:array[0..maxn+1]of longint;
n,i,x,ans,l,r:longint;
begin
repeat
read(n);
for i:=1 to n do begin
read(x);b[x]:=i;
end;
www.eeworm.com/read/246404/12728004
pas ac1175.pas
program tju1175;
const
maxwords=10000;
var
w:array[1..maxwords]of string;
a,pre:array[1..maxwords]of word;
last:array[0..26]of word;
t,u,n,i,l,r,m:longint;
s1,s2:ansistring;
c:c
www.eeworm.com/read/246404/12728077
pas ac1160.pas
program tju1160;
var
s:string;
c:char;
x:extended;
k,a:longint;
begin
repeat
s:='';
repeat
read(c);
if c=' ' then break;
s:=s+c;
until false;
www.eeworm.com/read/246404/12728139
pas ac1111.pas
program tju1111;
const
maxn=500;
var
s,e:array[1..maxn]of word;
a,p:array[1..maxn*2]of word;
n,i,j,x,y:word;
procedure qsort(s,t:word);
var
p,i,j,tmp:word;
begin
if s>=t
www.eeworm.com/read/246404/12728447
pas ac1036.pas
program tju1036;
const
maxcount=1528;
var
q:array[0..maxcount]of qword;
p1,p2,p3,f1,f2,f3,r,i:integer;
a,b,c:qword;
begin
repeat
read(p1,p2,p3,i);
if p1>p2 then begin r:=p1