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

Question

Тонюха

7 октября, 23:39

+1

Ответы (1)

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

Харита · Answer 1

Var

n, a:integer;

begin

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

readln (n) ;

a:=n mod 2;

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

end.