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

1Составьте пожалуйста программу в PascalABC для определения принадлежит ли
введённое число промежуткам [2;5] или [-1;1]

Ответ оставил Гость

Var a:integer;
begin
read(a);
if ((a>=2) and (a<=5)) or ((a>=-1) and (a<=1)) then writeln(Yes) else writeln(No);
end.

Если число не целое, то вместо integer напиши real