代码搜索：repeat
找到约 6,690 项符合「repeat」的源代码
代码结果 6,690
www.eeworm.com/read/246404/12729031
pas ac1018.pas
{A rubbish prob... much too unclear statement}
program tju1018;
var
a,b:byte;
begin
repeat
read(a,b);
writeln(a:7);
writeln('*',b:6);
writeln('-------');
if b>9 then
www.eeworm.com/read/246404/12729115
pas ac1086.pas
program tju1086;
const
maxl=2000;
var
a,b:array[1..maxl]of char;
dist:array[boolean,0..maxl]of longint;
la,lb,i,j,k:word;
function min(a,b:longint):longint;
begin
if a
www.eeworm.com/read/246404/12729143
pas ac1005.pas
program tju1005;
const
maxn=50;
var
a:array[-1..maxn]of longint;
i:byte;
begin
a[1]:=1;
for i:=2 to maxn do
a[i]:=a[i-1]+a[i-3];
repeat
read(i);
writeln(a[i]);
u
www.eeworm.com/read/246404/12729169
pas ac1044.pas
program tju1044;
var
n,i:longint;
begin
read(n);
repeat
inc(i);
if (i mod 7=0) or (i mod 10=7) then begin
writeln(i);
dec(n);
end;
until n=0;
end.
www.eeworm.com/read/246404/12729332
pas ac1202.pas
program tju1202;
var
all,one:longint;
begin
repeat
read(all,one);
if (all
www.eeworm.com/read/246404/12729352
pas ac1241.pas
program tju1241;
var
n,t,i,s:longint;
begin
repeat
read(n);t:=trunc(sqrt(n));
s:=0;
for i:=1 to t do
inc(s,n div i);
writeln(s*2-t*t);
until seekeof;
end.
www.eeworm.com/read/246404/12729355
pas ac1264.pas
{$Q-,R-}
program tju1264;
const
maxn=1000000;
var
d:array[1..maxn]of word;
bq,sq:array[1..maxn]of longint;
n,k,i,bf,br,sf,sr,head,ans,m:longint;
begin
repeat
read(n,k);
bf
www.eeworm.com/read/246404/12729363
pas ac1209.pas
program tju1209;
var
a,n,d:cardinal;//d=b-a
begin
repeat
read(a);n:=a*a+1;d:=trunc(sqrt(n));
while n mod d>0 do dec(d);
writeln(d+a+a+n div d);
until seekeof;
end.
www.eeworm.com/read/246404/12729381
pas ac1279.pas
program tju1279;
var
a,b,c,d,e,f,m,n,x,y,z:extended;
begin
repeat
read(a,b,c,d,e,f);
m:=(d*d+e*e-f*f)/(2*d);
n:=sqrt(e*e-m*m);
x:=(d*d+a*a-b*b)/(2*d);
y:=(e*e+a*a-c*c-
www.eeworm.com/read/246404/12729455
pas ac1274.pas
program tju1274;
var
n,m,a,b:longint;
begin
repeat
read(n);m:=n;
a:=1;while not odd(m) do begin a:=a*2;m:=m shr 1;end;
m:=m shr 1;b:=1;while odd(m) do begin b:=b*2;m:=m shr 1;en