Напишите программу вывода на экран фразы "Число положительное", если введенное число положительное, и "Число отрицательное", если введенное число отрицательное.

Question

Информатика

Доминик

20 сентября, 03:12

Напишите программу вывода на экран фразы "Число положительное", если введенное число положительное, и "Число отрицательное", если введенное число отрицательное.

+1

Ответы (1)

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

Руслан · Answer 1

Var x: Integer;

begin

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

readln (x) ;

if x<0 then

writeln ('Число ', x,' - отрицательное')

else

if x=0 then

writeln ('Число ', x,' - нейтральное')

else

writeln ('Число ', x,' - положительное') ;

end.