Задание. Написать программу, проверяющую принадлежит ли число, введенное с клавиатуры, интервалу (3; 8) Задание ДОЛЖНО быть написано на языке Pascal.
Ответ:
var a: integer;
begin
write('Введите число: ');
readln(a);
if (a>3) and (a<8) then </em>
writeln('Число принадлежит интервалу (3,8)')
else
writeln('Число не принадлежит интервалу (3,8)')
end.