代码搜索：until
找到约 4,232 项符合「until」的源代码
代码结果 4,232
www.eeworm.com/read/184327/9109692
pas ac1131.pas
program tju1131;
var
n,x:longint;
a:qword;
begin
repeat
read(n);
n:=power(2,n);
a:=n+1;
a:=a*n div 2;
repeat
read(x);
dec(a,x);
dec(n);
un
www.eeworm.com/read/184327/9109731
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/184327/9109752
pas ac1014.pas
program tju1014;
var
n,f,c:longint;
begin
repeat
read(n);
f:=5;c:=0;
while f
www.eeworm.com/read/184327/9109795
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/184327/9109801
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/184327/9109825
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.
www.eeworm.com/read/184327/9109843
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/184327/9109911
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/184327/9109922
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/184327/9109943
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.