代码搜索：until
找到约 4,232 项符合「until」的源代码
代码结果 4,232
www.eeworm.com/read/246404/12727688
pas ac1102.pas
program tju1102;
const
maxn=20000;
var
a:array[1..maxn]of word;
n,i,t,u,op,len,maxlen:word;
begin
repeat
read(n);
for i:=1 to n do
read(a[i]);
op:=n;maxlen:=0;
www.eeworm.com/read/246404/12727698
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/246404/12727868
pas ac1106.pas
program tju1106;
var
k,a,b,c:qword;
begin
repeat
read(k);
b:=1;c:=1;
repeat
a:=b;b:=c;c:=a+b;
until c>k;
writeln(a*a+b*b);
until seekeof;
end.
www.eeworm.com/read/246404/12728051
pas ac1189.pas
program tju1189;
const
maxn=500;
var
adj:array[1..maxn,1..maxn]of boolean;
route,dist,q:array[1..maxn]of word;
m,n,i,j,f,r:word;
begin
repeat
fillchar(adj,sizeof(adj),0);
f
www.eeworm.com/read/246404/12728132
pas ac1102.pas
program tju1102;
const
maxn=20000;
var
a:array[1..maxn]of word;
n,i,t,u,op,len,maxlen:word;
begin
repeat
read(n);
for i:=1 to n do
read(a[i]);
op:=n;maxlen:=0;
www.eeworm.com/read/246404/12728142
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/246404/12728216
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/12728261
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/12728342
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/12728353
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