代码搜索：repeat
找到约 6,690 项符合「repeat」的源代码
代码结果 6,690
www.eeworm.com/read/246404/12728542
pas ac1013.pas
program tju1013;
var
s:string;
n,m,i,j,p,q:byte;
c:char;
begin
repeat
s:='';
repeat
read(c);
if c=' ' then break;
s:=s+c;
until false;
n:=length(
www.eeworm.com/read/246404/12728611
pas ac1076.pas
program tju1076;
const
m=7;
var
f:array[0..m*m+1]of byte;
p:array[0..m-1,0..m-1]of longint;
a,b,n,i,t:longint;
begin
f[1]:=1;f[2]:=1;
repeat
read(a,b,n);
if n=0 then hal
www.eeworm.com/read/246404/12728775
pas ac1256.pas
program tju1256;
const
maxn=200;
var
k,q,step:array[1..maxn]of byte;
n,b,i,f,r:longint;
begin
repeat
read(n,q[1],b);
for i:=1 to n do read(k[i]);
fillchar(step,sizeof(s
www.eeworm.com/read/246404/12728908
pas ac1270.pas
program tju1270;
const
maxn=10000;
var
f:array[1..maxn]of longint;
n,i,l,x,ans:longint;
begin
repeat
read(n);ans:=0;
for i:=1 to n do begin
read(l,l);f[i]:=0;
re
www.eeworm.com/read/246404/12729040
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
www.eeworm.com/read/246404/12729112
pas ac1013.pas
program tju1013;
var
s:string;
n,m,i,j,p,q:byte;
c:char;
begin
repeat
s:='';
repeat
read(c);
if c=' ' then break;
s:=s+c;
until false;
n:=length(
www.eeworm.com/read/246404/12729184
pas ac1076.pas
program tju1076;
const
m=7;
var
f:array[0..m*m+1]of byte;
p:array[0..m-1,0..m-1]of longint;
a,b,n,i,t:longint;
begin
f[1]:=1;f[2]:=1;
repeat
read(a,b,n);
if n=0 then hal
www.eeworm.com/read/246404/12729312
pas ac1256.pas
program tju1256;
const
maxn=200;
var
k,q,step:array[1..maxn]of byte;
n,b,i,f,r:longint;
begin
repeat
read(n,q[1],b);
for i:=1 to n do read(k[i]);
fillchar(step,sizeof(s
www.eeworm.com/read/246404/12729520
pas ac1270.pas
program tju1270;
const
maxn=10000;
var
f:array[1..maxn]of longint;
n,i,l,x,ans:longint;
begin
repeat
read(n);ans:=0;
for i:=1 to n do begin
read(l,l);f[i]:=0;
re
www.eeworm.com/read/330315/12902458
pl0 test.pl0
PROGRAM TEST;
VAR A;B;C;D;
BEGIN
A:=0;
B:=0;
C:=0;
WHILE A=A;
WRITE(B);
WRITE(C);
FOR D:=0
TO A+B
DO
IF C