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

Question

Информатика

Вовуша

12 октября, 02:34

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

+2

Ответы (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.