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

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

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

var
a:integer;
begin
readln (a);
repeat
a:=a+1;
until (a mod 2=0);
writeln (a);
end.