Срочно! Выясните принадлежат ли числа a и b промежутку (-1;1) Паскаль.

Question

Срочно! Выясните принадлежат ли числа a и b промежутку (-1;1) Паскаль.

Answer 1

Var a,b:real;
begin
write('вв числа a и b');
read(a,b);
if (a> -1) and (a<1) then writeln('a принадлежит промежутку') else writeln('a не принадлежит');<br>if (b>-1) and (b<1) then writeln(' b принадлежит') else writeln('b не принадлежит');<br>end.