Задание:
Составить алгоритм. Дано целое число, если оно положительное то добавить 2, а если отрицательное то отнять 3, а если равно 0 то присвоить значение 5.
Решение:
Var i: integer; Begin read (i); if i > 0 then i: =i+2 else if i < 0 then i: =i -3; else i: =5; writeln (i); End
Знаете другой ответ?