Question

Дано целое число. Если оно является положительным, то прибавить к нему 1 ; если отрицательным, то вычесть из него 5; если нулевым, то заменить его на 11. Вывести полученное число.

Answer 1

Ответ:

program n1;

var  

a :integer;

begin

read(a);

if a>0 then

writeln(a+1);

if a<0 then

writeln(a-5);

if a=0 then

writeln(a+11);

end.

Объяснение: