Напишите программы ** паскале для решения следующих задач выясните принадлежит ли числа a...

Question

Напишите программы на паскале для решения следующих задач выясните принадлежит ли числа a и b промежутку(-1;1)

Answer 1

uses crt;
var a,b:real;

begin
readln(a,b);
if ((a<1) and ( a > - 1)) then writeln(' tocha a vhodit v diapazon ' ) else writeln('tochka a ne vhodit');
if ((b<1) and ( b > - 1)) then writeln(' tocha b vhodit v diapazon ' ) else writeln('tochka b ne vhodit');

readln;
end.