Предмет: Информатика,
автор: elena3029
Составить программу, чтобы компьютер сгенерировал 10 случайных целых трехзначных чисел. Длину определять с помощью строковых функций. в паскале
Ответы
Автор ответа:
0
var
e,f: string;
a,i: integer;
begin
for i:=1 to 10 do
begin
while length(e)<3 do
begin
a:=random(10);
Str (a,f);
e:=e+f;
end;
writeln(e);
e:='';
end;
end.
e,f: string;
a,i: integer;
begin
for i:=1 to 10 do
begin
while length(e)<3 do
begin
a:=random(10);
Str (a,f);
e:=e+f;
end;
writeln(e);
e:='';
end;
end.
Автор ответа:
0
спасибо
Похожие вопросы
Предмет: География,
автор: Аноним
Предмет: Математика,
автор: sweetgirl20091492
Предмет: Литература,
автор: tarasp261
Предмет: Математика,
автор: Makcсс
Предмет: Математика,
автор: mehxanic2014