ТутРешу.Ру

Составить алгоритм. Дано целое число…

Задание:

Составить алгоритм. Дано целое число, если оно положительное то добавить 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




Знаете другой ответ?

Отправить свой ответ