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

Question

Хрися

28 июня, 03:21

+5

Ответы (1)

Знаете ответ?

Алекся · Answer 1

Var

n, a:integer;

begin

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

readln (n) ;

a:=n mod 2;

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

end.