代码搜索：repeat
找到约 6,690 项符合「repeat」的源代码
代码结果 6,690
www.eeworm.com/read/450999/7473914
pas baza2.pas
program baza2;
var a,b,n:integer;
begin
writeln('a=');
read(a);
repeat
b:=a div 2
until b=0;
n:=a-2*b;
writeln('numarul' ,a, 'scris in baza 2 este' ,n);
end.
www.eeworm.com/read/450999/7473960
pas ropr6tst.pas
program pr6;
type informatii=record
nume:string[50];
inaltime:byte;
greutate:byte;
end;
var n,i,p,s,a,b,r:integer;
v:array[1..100] of informatii;
aux:informatii;
www.eeworm.com/read/450999/7474020
pas nr_prime.pas
program nr_prime;
{sa se scrie nr prime mai mici ca n}
var n,i,k,s:integer;
begin
write('n= ');
readln(n);
k:=0;
s:=0;
for s:=0 to n do
repeat
for i:=2 to (n-1) do
if ((n-1) mod i=0)
www.eeworm.com/read/450999/7474037
pas rox_ex.pas
program exponent;
var n,p,i,t :integer;
begin
write('n=');readln(n);
write('p=');readln(p);
t:=0;
for i:=1 to n do
begin
while i mod p=0 do
begin
repeat
i:=i div p;
t:=t+1
www.eeworm.com/read/450999/7474045
pas rovect3.pas
program vector1;
var v:array[1..100]of integer;
i,min,j,x,k :integer;
begin
i:=0;
repeat
write('x=');readln(x);
i:=i+1;
v[i]:=x;
until x=0;
i:=i-1;
min:=v[1];
for k:=2 to i do
www.eeworm.com/read/449335/7508741
txt test1.txt
and array begin bool call
case char constant dim do
else end false for if
input integer not of or
output procedure program read real
repeat set stop then to
true until
www.eeworm.com/read/449335/7508753
txt test1.txt
and array begin bool call
case char constant dim do
else end false for if
input integer not of or
output procedure program read real
repeat set stop then to
true until
www.eeworm.com/read/449331/7508772
txt test1.txt
and array begin bool call
case char constant dim do
else end false for if
input integer not of or
output procedure program read real
repeat set stop then to
true until
www.eeworm.com/read/449331/7508782
txt test1.txt
and array begin bool call
case char constant dim do
else end false for if
input integer not of or
output procedure program read real
repeat set stop then to
true until