Manalore
5 год назад
Создать программу, которая будет проверять попало ли случайно выбранное из отрезка [5;155] целое число в интервал (25;100) и сообщать результат на экран.Примеры работы программы:Число 113 не содержится в интервале (25,100)Число 72 содержится в интервале (25,100)Число 25 не содержится в интервале (25,100)Число 155 не содержится в интервале (25,100)
ОТВЕТЫ
Енчо
Oct 24, 2020
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.
A:byte;
Begin
A:=random(151)+5;
if (25 < A)and(A < 100) then WriteLn('Число ',A,' содержится в интервале (25,100)')
else WriteLn('Число ',A,' не содержится в интервале (25,100)')
End.
57
Смежные вопросы:
