Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var
n,a:integer;
begin
write(Введите число: );
readln(n);
a:=n mod 2;
writeln(Следующее четное число: , n+2-a*1);
end.