Pascal ABC

Напишите программу которая вводит натуральное число N и выводит на экран N псевдослучайных чисел. Запустите её несколько раз, объясните результаты опыта.

Question

Виташа

18 августа, 15:35

+3

Ответы (1)

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

Робертушка · Answer 1

Var x, y, i: integer;

begin

randomize;

readln (y) ;

for i:=1 to y do

begin

x:=random (1000) ;

write (x, ' ') ;

end;

readln;

end.

Pascal ABCНапишите программу которая вводит натуральное число N и выводит на экран N псевдослучайных чисел. Запустите её несколько раз, объясните результаты опыта.