代码搜索：repeat
找到约 6,690 项符合「repeat」的源代码
代码结果 6,690
www.eeworm.com/read/231652/14224624
pas ac1180.pas
program ural1180;
var
c:char;
m:byte;
begin
m:=0;
repeat
read(c);
m:=(m+ord(c)) mod 3;
until eoln;
if m=0 then
writeln(2)
else begin
writeln(1);
writeln
www.eeworm.com/read/231652/14224658
pas ac1176.pas
program ural1176;
const
maxn=1000;
maxl=32000;
e:array[0..7]of byte=(1,2,4,8,16,32,64,128);
var
ad:array[0..maxn*maxn shr 3-1]of byte;
now:array[1..maxn]of word;
s,r:array[0..maxl+
www.eeworm.com/read/231652/14224773
pas ac1113.pas
program ural1113;
var
n,ans:real;
m:longint;
i:integer;
begin
readln(n,m);
ans:=0;i:=1;
repeat
n:=n-m/(i*2-1);
ans:=ans+m;
inc(i);
until n
www.eeworm.com/read/231652/14224777
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/231652/14224800
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/231652/14224883
pas ac1011.pas
program ural1011;
var
p,q:real;
a,b,c:integer;
begin
readln(p,q);
a:=round(p*100);b:=round(q*100);
c:=1;
repeat
inc(c);
until (c*a div 10000
www.eeworm.com/read/231652/14225024
pas ac1086.pas
program ural1086;
const
max=15000;
var
p:array[1..max]of longint;
k,i,a:integer;
x:longint;
function prime(x:longint):boolean;
var
i:integer;
begin
i:=0;
repeat
www.eeworm.com/read/231652/14225060
pas ac1083.pas
program ural1083;
var
n,k:shortint;
f:longint;
s:string;
begin
read(n);
readln(s);
k:=length(s)-1;
f:=1;
repeat
f:=f*n;
dec(n,k);
until n
www.eeworm.com/read/231652/14225193
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/231652/14225230
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.