Напишите программу в паскале авс, опеделяющую знак числа

Question

Информатика

Захарьич

6 декабря, 14:48

Напишите программу в паскале авс, опеделяющую знак числа

+1

Ответы (1)

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

Харитина · Answer 1

Var a:integer;

Begin

read (a) ;

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

if a<0 then write ('Число отрицательное') ;

if a=0 then write ('Введённое число - 0') ;

End.