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

Question

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

Answer 1

Var
    e,f: string;
    a,i: integer;
begin
  for i:=1 to 10 do
   begin
    while length(e)<3 do<br>     begin
     a:=random(10);
     Str (a,f);
     e:=e+f;
     end;
   writeln(e);
   e:='';
   end;
end.

Comments

спасибо