Дано целое число а. выведите следующее за ним четное число. при решении этой задачи нельзя использовать условную инструкцию if
Дано целое число а. выведите следующее за ним четное число. при решении этой задачи нельзя использовать условную инструкцию if
Гость
Ответ(ы) на вопрос:
Гостьvar
a:integer;
begin
readln (a);
repeat
a:=a+1;
until (a mod 2=0);
writeln (a);
end.
Не нашли ответ?
Похожие вопросы