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

Question

Информатика

Андроний

20 апреля, 12:39

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

+4

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