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

Question

Дмитрий Захаров

Информатика

24 февраля, 08:57

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

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Fredik · Answer 1

Program sootnoshenie;

var x, y: integer;

begin

writeln ('введите любое число с клавиатуры');

readln (x);

if x > = 1 then

y : = 0;

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

y : = 0;

if x < 0 then

y : = - 1;

writeln (y);

end.

(Программа работает, проверена в PascalABC)