Составить программу, чтобы компьютер сгенерировал 10 случайных целых трехзначных чисел. Длину определять с помощью строковых функций. в паскале
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
