Предмет: Информатика,
автор: alibek123
дано целое число а. выведите следующее за ним четное число. при решении этой задачи нельзя использовать условную инструкцию if
Ответы
Автор ответа:
0
var
a:integer;
begin
readln (a);
repeat
a:=a+1;
until (a mod 2=0);
writeln (a);
end.
Интересные вопросы
Предмет: Физика,
автор: taskenbajaigerim
Предмет: Қазақ тiлi,
автор: Baxa1234
Предмет: Литература,
автор: gofmanartur36
Предмет: Литература,
автор: Кибель
Предмет: Химия,
автор: Оwl