Дано целое число n. Выведите следующее за ним четное число. При решении этой задачи нельзя использовать условную инструкцию if и циклы.

Question

Тонюха

27 декабря, 10:30

+4

Ответы (1)

Знаете ответ на вопрос?

Харита · Answer 1

Var

n, a:integer;

begin

write ('Введите число: ') ;

readln (n) ;

a:=n mod 2;

writeln ('Следующее четное число: ', n+2-a*1) ;

end.