Составить программу, чтобы компьютер сгенерировал 10 случайных целых трехзначных чисел. Длину определять с помощью строковых функций. в паскале

Question

Информатика

Вовуша

10 августа, 15:16

Составить программу, чтобы компьютер сгенерировал 10 случайных целых трехзначных чисел. Длину определять с помощью строковых функций. в паскале

+1

Ответы (1)

Знаете ответ на вопрос?

Аэлита · Answer 1

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.