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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a:integer; Begin read(a); if a>0 then write('Число положительное'); if a<0 then write('Число отрицательное'); if a=0 then write('Введённое число - 0'); End.