Дано целое число х. Составьте программу, которая выясняет, верно ли , что 0<=x<1. **...

Question

Дано целое число х. Составьте программу, которая выясняет, верно ли , что 0<=x<1. На печать вывести да или нет.

Answer 1

Var x:real;
begin
readln(x);
if (0<=x) and (x<1) then<br>  writeln('Да')
  else writeln('Нет')
end.