Есть ответ 👍

Дано число а. определить, положительное, отрицательное оно или равно 0.

166
366
Посмотреть ответы 2

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


Var x: integer; begin write ('введите число: '); read(x); if (x> 0) then writeln ('ваше число положительное! '); if (x< 0) then writeln ('ваше число отрицательное! '); if (x=0) then writeln ('ваше число равно нулю! '); end.

2и 3 строчки надо убрать, после var нужно написать i,k: real; в 3 и 6 строчке с конца поставить ;

Популярно: Информатика