Question

Паскаль ABC
Решить задачу и нарисовать блог схему

Answer 1

Взял от -10000
varx:real;beginreadln(x);if (x>=-10000) and(x<=-2) or(x>=1) and(x<=3) thenwriteln('vhodit')else writeln('ne vhodit');end.