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

GP7 GP7    1   02.09.2019 23:20    6

Ответы
MissRapunzel MissRapunzel  06.10.2020 13:34
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика