Дано число А. Проверить принадлежит ли данное число интервалу(-5;5).

Question

Дано число А. Проверить принадлежит ли данное число интервалу(-5;5).

Answer 1

Var a:real;
begin
readln(a);
if (a<5) and (a>-5) then writeln('принадлежит') else writeln('не принадлежит');
end.