Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Напишите программы на паскале для решения следующих задач выясните принадлежит ли числа a и b промежутку(-1;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.