Введите с клавиатуры число и выведите на экран сообщение о его знаке

Question

Викториныч

27 августа, 22:49

+1

Ответы (1)

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

Онуфрий · Answer 1

Program znak;

var N: integer;

begin

write (' N = ') ;

readln (N) ;

if N>0 tnen write (' положительное ')

else write (' отрицательное ') ;

end.