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

Question

Таися

17 августа, 02:37

+3

Ответы (1)

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

Вечеслав · Answer 1

var

a:integer;

begin

readln (a) ;

repeat

a:=a+1;

until (a mod 2=0) ;

writeln (a) ;

end.