Ответы
Ответ дал:
0
uses crt;
var s:string;
i,k:byte;
begin
randomize; s:='';
for i:=1 to 10 do
begin
repeat
k:=48+random(75);
until k in [48..57,97..122];
s:=s+chr(k);
end;
write(s);
end.
var s:string;
i,k:byte;
begin
randomize; s:='';
for i:=1 to 10 do
begin
repeat
k:=48+random(75);
until k in [48..57,97..122];
s:=s+chr(k);
end;
write(s);
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад