Дано число а. если а > 0 на единицу, иначе уменьшить на 1. проверить алгоритм для а: =3; а: =0; а: =-12

149

383

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

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

зяйка75542

Информатика

4,7(30 оценок)

Var a: integer; begin readln(a); if a > 0 then inc(a) else dec(a); writeln(a); end. входные данные: 3 выходные данные: 4 входные данные: 0 выходные данные: -1 входные данные: -12 выходные данные: -13 p.s. процедура inc(a) увеличивает a на 1, процедура dec(a) уменьшает a на 1.