Ввести с клавиатуры число. вывести на экран знак числа (+1 если больше нуля, - 1 если меньше нуля, 0 если равно нулю)

Question

Информатика

Русланка

22 октября, 20:09

Ввести с клавиатуры число. вывести на экран знак числа (+1 если больше нуля, - 1 если меньше нуля, 0 если равно нулю)

+1

Ответы (1)

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

Кириак · Answer 1

Program chisla;

uses crt;

var a:integer;

begin

Write ('Введите число - ') ;

readln (a) ;

If a>0 then

write ('+1')

else begin

If a<0 then

write ('-1')

else begin

If a=0 then

write ('0')

else begin

end;

end;

end;

end.