代码搜索：repeat
找到约 6,690 项符合「repeat」的源代码
代码结果 6,690
www.eeworm.com/read/246404/12728390
pas ac1009.pas
program tju1009;
var
n,i,j:byte;
begin
repeat
read(n);
for i:=1 to n do
for j:=i to n do begin
write(j*(j+1) div 2-i+1);
if j=n then writeln else write(' ');
www.eeworm.com/read/246404/12728513
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/246404/12728596
pas ac1093.pas
program tju1093;
const
maxn=2004;
var
x,y,l:array[0..maxn]of cardinal;
n,i,ans:cardinal;
procedure qsort(s,t:cardinal);
var
p,i,j,tx,ty:cardinal;
begin
if s>=t then exit;
www.eeworm.com/read/246404/12728602
pas ac1078.pas
program tju1078;
const
maxsize=20;
var
qx,qy:array[1..sqr(maxsize)]of byte;
step:array[1..maxsize,1..maxsize]of byte;
count:array[1..maxsize,1..maxsize]of qword;
n,m,p,c,i,j,t,f,r:wor
www.eeworm.com/read/246404/12728812
pas ac1257.pas
program tju1257;
const
size=250;
var
cut:array[1..size,1..size]of byte;
x,y,depth,dx,dy,n,i,sign:longint;
c:char;
procedure getnum(var n:longint);
begin
read(c);
if c='-' t
www.eeworm.com/read/246404/12728948
pas ac1022.pas
program tju1022;
var
d:array[0..19]of byte;
s:string;
n,t,l,a,b,i:integer;
procedure getstr(var s:string;e:char);
var
c:char;
begin
s:='';
repeat
read(c);
www.eeworm.com/read/246404/12728951
pas ac1079.pas
program tju1079;
var
r:byte;
c:char;
begin
repeat
r:=0;
repeat
read(c);
r:=(r+ord(c)) mod 3;
until seekeoln;
readln;
if r=0 then
writeln('King
www.eeworm.com/read/246404/12728984
pas ac1067.pas
program tju1067;
var
count:array[0..9]of int64;
n,k:int64;
r,i:byte;
s:string;
begin
repeat
fillchar(count,sizeof(count),0);
read(n);k:=1;
repeat
r:=n mod 10;
www.eeworm.com/read/246404/12729011
pas ac1009.pas
program tju1009;
var
n,i,j:byte;
begin
repeat
read(n);
for i:=1 to n do
for j:=i to n do begin
write(j*(j+1) div 2-i+1);
if j=n then writeln else write(' ');
www.eeworm.com/read/246404/12729080
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);