Предмет: Информатика,
автор: Вселенный
Pascal ABC
Напишите программу которая вводит натуральное число N и выводит на экран N псевдослучайных чисел. Запустите её несколько раз, объясните результаты опыта.
Ответы
Автор ответа:
0
var x, y, i: integer;
begin
randomize;
readln (y);
for i:=1 to y do
begin
x:=random(1000);
write (x, ' ');
end;
readln;
end.
begin
randomize;
readln (y);
for i:=1 to y do
begin
x:=random(1000);
write (x, ' ');
end;
readln;
end.
Похожие вопросы
Предмет: Биология,
автор: Frogenteg
Предмет: Математика,
автор: sofirotnova
Предмет: Право,
автор: Аноним
Предмет: История,
автор: Daniil29092003