代码搜索：repeat
找到约 6,690 项符合「repeat」的源代码
代码结果 6,690
www.eeworm.com/read/493719/6389383
pas ac1181.pas
program ural1181;
const
maxn=1000;
colorstr='RGB';
var
count:array[1..3]of word;
color:array[1..maxn]of byte;
prev,next:array[1..maxn]of word;
n,i:word;
c:char;
begin
readln
www.eeworm.com/read/493719/6389392
pas ac1135.pas
program ural1135;
var
n,i,right:word;
turn:longint;
c:char;
begin
read(n);
for i:=1 to n do begin
repeat
read(c);
until (c='');
if c='>' then inc(rig
www.eeworm.com/read/493722/6389416
pas ac1226.pas
program ural1226;
const
letter:set of char=['A'..'Z','a'..'z'];
var
s:string;
c:char;
begin
repeat
read(c);
if c in letter then
s:=c+s
else begin
write(s,c)
www.eeworm.com/read/493722/6389444
pas ac1243.pas
program ural1243;
var
c:char;
r:byte;
begin
repeat
read(c);
r:=(r*10+ord(c)-48) mod 7;
until eoln;
writeln(r);
end.
www.eeworm.com/read/493722/6389445
pas ac1262.pas
program ural1262;
const
d:array['0'..'9']of byte=(0,1,2,3,2,1,2,3,4,2);
var
c:char;
t:word;
begin
repeat
read(c);
inc(t,d[c]);
until eoln;
writeln(t);
end.
www.eeworm.com/read/493722/6389453
pas ac1223.pas
program ural1223;
const
maxeggs=1000;
maxfloors=1000;
maxthrows=45;
var
a:array[2..maxeggs,1..maxthrows]of word;
{a[x,y]:the max number of floors solvable with x eggs & y throws}
www.eeworm.com/read/493722/6389458
pas ac1259.pas
program ural1259;
var
n,i,m:longint;
function gcd(a,b:longint):longint;
var
t:longint;
begin
repeat
t:=a mod b;a:=b;b:=t;
until b=0;
gcd:=a;
end;
begin
rea
www.eeworm.com/read/491941/6428776
tny sample.tny
{ Sample program
in TINY language -
computes factorial
}
read x; { input an integer }
if 0 < x then { don't compute if x
www.eeworm.com/read/487356/6508957
vwf pskfsk.sim.vwf
/*
WARNING: Do NOT edit the input and output ports in this file in a text
editor if you plan to continue editing the block that represents it in
the Block Editor! File corruption is VERY likely to
www.eeworm.com/read/487356/6508999
vwf pskfsk-sim.vwf
/*
WARNING: Do NOT edit the input and output ports in this file in a text
editor if you plan to continue editing the block that represents it in
the Block Editor! File corruption is VERY likely to