Question

ЛЮДИ ДОБРЫЕ ПОМОГИТЕ УМОЛЯЮ ПОЖАЛУЙСТА! Напишите программу в Паскале, которая выводит случайное число в промежутке от 15 до N. Значение N вводится с клавиатуры и N ( знак больше)15.

Answer 1

Должно работать это:

var N,r:integer; //нужные нам переменные

begin //СТАРТУЕМ!

 writeln('Впишите N. . .');  //просим ввести N

 readln(N); //получаем N

 randomize; //без этого рандом выдаёт одно и то же

 r := random(N-15+1)+15; //формула раандома

 writeln(r); //выводим рандомное число

end. //выключаем программу

Answer 2

Конечно, я помогу вам с написанием программы на Pascal. Вот код:

program RandomNumber;
var
  n, randomNumber: Integer;
begin
  // Ввод значения n с клавиатуры
  Write('Введите значение n (n > 15): ');
  ReadLn(n);
  
  // Генерация случайного числа в промежутке от 15 до n
  Randomize; // Инициализация генератора случайных чисел
  randomNumber := Random(n - 15 + 1) + 15;
  
  // Вывод случайного числа
  WriteLn('Случайное число: ', randomNumber);
end.

Программа сначала запрашивает значение `n` с клавиатуры. Затем она инициализирует генератор случайных чисел с помощью функции `Randomize`. Затем генерируется случайное число в диапазоне от `15` до `n` с помощью функции `Random`. Наконец, программа выводит это случайное число на экран.