дано число. если это число положительное, то вывести что оно положительное. в противном случае вывести, что оно отрицательное

Question

Информатика

Аксиньюшка

11 января, 14:24

дано число. если это число положительное, то вывести что оно положительное. в противном случае вывести, что оно отрицательное

+1

Ответы (2)

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

Анджела · Answer 1

Var a: integer;

begin

readln (a) ;

if a>0 then

writeln ('число положительное') ;

if a<0 then

writeln ('число отрицательное) ;

end.

Что делать в случае, если число равно 0?

Валент · Answer 2

Var a:integer;

begin

readln (a) ;

if a>0 then writeln ('Число положительное')

else writeln ('Число отрицательное') ;

end.