
Nualymav
6 год назад
На вход дается натуральное число N. Выведите следущее за ним четное число. (Написать программу для решения в Pascal. ABC)
ОТВЕТЫ

Seishnars
Aug 3, 2019
Var n:integer;
Begin
readln(n);
if n mod 2 =0 then writeln(n+2) else writeln(n+1);
end.
Begin
readln(n);
if n mod 2 =0 then writeln(n+2) else writeln(n+1);
end.
261
Смежные вопросы: