Дано число y при вводе с клавиатуры числа x должно вывести ему равен y, если

y=1, если х≥1. y=0 если - 1

Question

Информатика

Васяк

30 июля, 10:55

Дано число y при вводе с клавиатуры числа x должно вывести ему равен y, если

y=1, если х≥1. y=0 если - 1

+2

Ответы (1)

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

Роня · Answer 1

Var

y, x : integer;

begin

readln (x) ;

if x > = 1 then

y : = 1

else if (x > - 1) and (x < 1) then

y : = 0

else if x < 0 then

y : = - 1;

writeln (y) ;

end

Дано число y при вводе с клавиатуры числа x должно вывести ему равен y, еслиy=1, если х≥1. y=0 если - 1

Дано число y при вводе с клавиатуры числа x должно вывести ему равен y, если

y=1, если х≥1. y=0 если - 1