Определить следующее четное число, идущее после заданного числа - Pascal ABC

Формулировка задачи:

Определить следующее четное число, идущее после заданного числа

Код к задаче: «Определить следующее четное число, идущее после заданного числа - Pascal ABC»

textual
program NextEven;
 
var
  i: integer;
begin
  readln(i);
  writeln(i + 2 - abs(i mod 2));
end.

14   голосов, оценка 4.071 из 5


СОХРАНИТЬ ССЫЛКУ