Question

Определить, является ли вводимое число четным. Если оно четное то к нему прибавить 1,если число не четное,то к нему прибавить 2 и результат вывести на экран. Паскаль

Answer 1

var number: integer;

begin

 readln(number);

 if number mod 2 = 0 then

   number := number + 1

 else number := number + 2;

 writeln(number);

end.