Question

Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 3; если нулевым, то заменить его на 17. Протестируйте программу для числе 25, -31 и 0.
​

Answer 1

Ответ:

var a: integer;

begin

 readln(a);

 if (a>0) then

   a:=a+1

 else

   if (a<0) then

     a:=a-3

   else

     if (a=0) then

       a:=17;

writeln(a);

end.