Question

2. Дано целое число A. Если значение A > 0, то необходимо увеличить его на единицу, иначе умень-
шить на 1. Разработать схему алгоритма для решения этой задачи. Протестировать алгоритм для A=3, A=0,
А=-12.
3. Даны два действительных числа X и Y. Если X>Ү, то вычислить произведение этих чисел, иначе их
сумму. Разработать схему алгоритма для решения этой задачи.

Answer 1

Ответ:var a:longint;

begin

read(a);

if a>0 then

a:=a+1;

end.

Объяснение: