Question

Дано X.Выяснить,верно ли,что 0<=x<=.Если верно,то должно быть выведено число 1,в противном случае-0

Answer 1

Паскаль:
uses crt;
const m = 1;
var x : real;
begin read(x); if (x >= 0) and (x <= m) then writeln(1) else writeln(0); readkey; end.