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

Question

Бронислава

4 февраля, 18:06

+5

Ответы (1)

Знаете ответ на вопрос?

Сашута · Answer 1

Var x:real;

begin

readln (x) ;

if (0<=x) and (x<1) then

writeln ('Да')

else writeln ('Нет')

end.