代码搜索：repeat
找到约 6,690 项符合「repeat」的源代码
代码结果 6,690
www.eeworm.com/read/246404/12728806
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/12728817
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/12728874
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
www.eeworm.com/read/246404/12728904
pas ac1206.pas
program tju1206;
var
n,m:byte;
begin
repeat
read(n,m);
writeln(power(2,n)*(m+1));
until seekeof;
end.
www.eeworm.com/read/246404/12728940
pas ac1015.pas
program tju1015;
var
s:string;
c:char;
begin
repeat
s:='';
repeat
read(c);
case c of
'@':s:='';
'#':if s>'' then delete(s,length(s),1);
el
www.eeworm.com/read/246404/12728954
pas ac1014.pas
program tju1014;
var
n,f,c:longint;
begin
repeat
read(n);
f:=5;c:=0;
while f
www.eeworm.com/read/246404/12728987
pas ac1007.pas
program tju1007;
var
a,s:longint;
begin
repeat
read(a);
inc(s,a);
until seekeof;
writeln(s);
end.
www.eeworm.com/read/246404/12728992
pas ac1021.pas
program tju1021;
const
maxh=75;
maxw=75;
var
map:array[-1..maxh+2,-1..maxw+2]of char;
qx,qy:array[1..(maxh+4)*(maxw+4)+1]of shortint;
seg:array[-1..maxh+2,-1..maxw+2]of word;
h,w,i
www.eeworm.com/read/246404/12728994
pas ac1034.pas
program tju1034;
const
maxn=50000;
m=10000;
var
ans:array[1..maxn]of word;
i,d,t,r:word;
begin
ans[1]:=1;d:=2;t:=2;r:=2;
for i:=2 to maxn do begin
ans[i]:=(ans[i-1]+d) mod m;
www.eeworm.com/read/246404/12729016
pas ac1027.pas
program tju1027;
var
n,x,p:word;
begin
repeat
read(n);n:=n*2+1;x:=1;p:=0;
repeat
x:=x*2 mod n;inc(p);
until x=1;
writeln(p);
until seekeof;
end.