Question

Напишите программу, которая вводит натуральные числа a , b и N , и выводит на экран N псевдослучайных целых чисел на отрезке [ a , b ] . Входные данные Входная строка содержит три числа, разделённые пробелами: границы отрезка a и b и требуемое количество чисел N . Гарантируется, что a ≤ b . Выходные данные Программа должна вывести N случайных целых чисел в одной строке, разделив их пробелами. Примеры: входные данные 10 20 5 выходные данные 10 10 19 12 13 !!! ЯЗЫК PascalABC !!! !!! Без while, a через for !!!

Answer 1

var a,b,n,i: integer;

begin

write ('Введите границы отрезка: ');

readln (a,b);

write ('Введите требуемое количество чисел: ');

readln (n);

for i:=1 to n do write(random(b-a+1)+a,'   ')

end.

Answer 2

Конечно, вот пример программы на языке PascalABC, которая выполняет задачу:

program RandomNumbers;

var
  a, b, N, i: integer;

begin
  // Вводим границы отрезка a и b, а также требуемое количество чисел N
  readln(a, b, N);

// Выводим N случайных чисел в заданном диапазоне
  for i := 1 to N do
  begin
    // Используем функцию Random для генерации псевдослучайных чисел
    // в диапазоне от a до b
    write(Random(b - a + 1) + a, ' ');
  end;

writeln; // Переход на новую строку в конце
end.

Обратите внимание, что в PascalABC функция `Random` генерирует псевдослучайное число в пределах от 0 до переданного аргумента (не включая его). Поэтому мы используем `Random(b - a + 1) + a`, чтобы получить число в диапазоне [a, b].

Программа считывает границы отрезка a и b, а также требуемое количество чисел N. Затем она генерирует и выводит N случайных чисел в указанном диапазоне.