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

Question

Информатика

Прокопий

12 апреля, 03:12

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

+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.