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

Question

Трофим

24 декабря, 03:18

+4

Ответы (1)

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

Захарий · Answer 1

var

a:integer;

begin

readln (a) ;

repeat

a:=a+1;

until (a mod 2=0) ;

writeln (a) ;

end.