Предмет: Информатика, автор: elena3029

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

Ответы

Автор ответа: Georgyi
0
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.
Автор ответа: elena3029
0
спасибо
Похожие вопросы
Предмет: Математика, автор: mehxanic2014