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

Question

Владлен

28 октября, 02:40

+2

Ответы (1)

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

Акилинка · 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.