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. //выключаем программу