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

1

Ответы и объяснения

2013-03-25T20:17:09+04:00

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