Составить алгоритм который принимает с клавиатуры целое число и выводит на экран сообщение положительное или отрицательное

Question

Информатика

Горгония

16 августа, 22:22

Составить алгоритм который принимает с клавиатуры целое число и выводит на экран сообщение положительное или отрицательное

+4

Ответы (1)

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

Киля · Answer 1

Ну-с, накидал на коленке - паскаль.

var a:integer;

begin

write ("Введите целое число: ") ;

readln (a) ;

if (a<0) then writeln ("Число отрицательное!")

else if (a>0) writeln ("Число отрицательное!")

else if (a=0) writeln ("Число равно нулю!") ;

readkey;

end;