Дано X.Выяснить,верно ли,что 0<=x<=.Если верно,то должно быть выведено число 1,в противном случае-0
Паскаль:
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
