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

Question

Информатика

Горгония

25 июля, 21:07

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

+2

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