Создать программу, которая будет проверять попало ли случайно выбранное из отрезка [5; 155] целое число в интервал (25; 100) и сообщать результат на экран.

Примеры работы программы:

Число 113 не содержится в интервале (25,100)

Число 72 содержится в интервале (25,100)

Число 25 не содержится в интервале (25,100)

Число 155 не содержится в интервале (25,100)

Question

Информатика

Васяк

14 апреля, 21:35

Создать программу, которая будет проверять попало ли случайно выбранное из отрезка [5; 155] целое число в интервал (25; 100) и сообщать результат на экран.

Примеры работы программы:

Число 113 не содержится в интервале (25,100)

Число 72 содержится в интервале (25,100)

Число 25 не содержится в интервале (25,100)

Число 155 не содержится в интервале (25,100)

+2

Ответы (1)

Знаете ответ на вопрос?

Евстратий · Answer 1

Var

A:byte;

Begin

A:=random (151) + 5;

if (25 < A) and (A < 100) then WriteLn ('Число ', A,' содержится в интервале (25,100) ')

else WriteLn ('Число ', A,' не содержится в интервале (25,100) ')

End.