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

Question

Информатика

Яна

30 июня, 11:58

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

+4

Ответы (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.