PASCAL!!!
Определить следующее четное число, идущее после заданного числа.

var a:integer;
begin
writeln(Введите A);
read(a);
repeat
a:=a+1;
until (a mod 2=0);
writeln(Следующее четное число: ,a);
end.

Например вводим 3, следующее четное после трех - число 4. Программа выводит 4.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!