Напишите программу, которая вводит натуральное число N и выводит на экран N псевдослучайных чисел. Запустите её несколько раз, объясните результаты опыта.
Ответы на вопрос
Ответил Issenpilon
0
var n, i: integer;
begin
//включаем рандом
randomize;
//Вводим N
readln(n);
//генерируем N случайных чисел до 100.
for i:=1 to n do
begin
n:=random(100);
//Выводим эти числа
write (n, ' ');
end;
writeln;
end.
begin
//включаем рандом
randomize;
//Вводим N
readln(n);
//генерируем N случайных чисел до 100.
for i:=1 to n do
begin
n:=random(100);
//Выводим эти числа
write (n, ' ');
end;
writeln;
end.
Ответил Аноним
0
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
SeqRandom(ReadInteger('n='),1,99).Println
end.
Тестовое решение:
n= 30
8 39 37 3 4 57 33 31 44 12 32 80 14 19 73 64 81 82 36 6 48 12 84 81 6 66 36 51 40 69
begin
SeqRandom(ReadInteger('n='),1,99).Println
end.
Тестовое решение:
n= 30
8 39 37 3 4 57 33 31 44 12 32 80 14 19 73 64 81 82 36 6 48 12 84 81 6 66 36 51 40 69
Новые вопросы