PASCAL!!! Определить следующее четное число, идущее после заданного числа.
PASCAL!!!
Определить следующее четное число, идущее после заданного числа.
Гость
Ответ(ы) на вопрос:
Гостьvar a:integer;
begin
writeln('Введите A');
read(a);
repeat
a:=a+1;
until (a mod 2=0);
writeln('Следующее четное число: ',a);
end.
Например вводим 3, следующее четное после трех - число 4. Программа выводит 4.
ГостьVar A:integer;
Begin
WriteLn('Введи целое число');
ReadLn(A);
if A mod 2 = 0 then WriteLn(A+2)
else WriteLn(A+1)
End.
Не нашли ответ?
Похожие вопросы