1. Информатика
  2. На вход дается натуральное

На вход дается натуральное число n. выведите следущее за ним четное число. (написать программу для решения в pascal. abc)

Ayvili Ayvili    2   10.08.2019 12:30    0

Ответы
glupostsroghdeniy glupostsroghdeniy  04.10.2020 09:18
Var n:integer;
Begin
readln(n);
if n mod 2 =0 then writeln(n+2) else writeln(n+1);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
РоузХз РоузХз  01.06.2019 05:40
Определим “календарные” числа фибоначчи таким образом: первые два из них текущим учебным годом (т.е. в данный момент это 2013 и 2014), а последующие составляются как обычно: каждое...
bugemila36id bugemila36id  01.06.2019 05:40
Мы эту тему проходим бегло, а книги про pascal у меня нет, так что . записать в виде обычной формулы 1) y: =2*sin(x)*sqrt(x+sqrt(abs( 2) y: =sqrt(sin(x)+sin(sqrt( 3) y: =sqrt(abs(x-1)+sqrt(sin(...
polinakarpova4 polinakarpova4  01.06.2019 05:30
По 3 примера текстовый файл числовой(расшириный)файл графичиский файл видео звуковой...
kupecki kupecki  01.06.2019 05:30
Найди лишнее десятичное чило и зачеркни.23,53,73,37,83. 17,20,21,37,99 40,44,48,88,42...
мурад2008 мурад2008  01.06.2019 05:30
Даны три стороны треугольника .определить существует ли треугольник с заданными сторонами.нужна блок...
veragerasimova3 veragerasimova3  01.06.2019 05:20
Надо что обозначает клавиша ctrl+home...
muradveliyev muradveliyev  01.06.2019 05:20
Закончить определения 1.информатика это 2. 3.фонетика это раздел науки 4.ботаника это раздел науки 5.имя существительное это самостоятельная часть речи.. 6.глагол это самостоятельная...
Mrnikitos2002 Mrnikitos2002  01.06.2019 05:20
Что не может осуществить пользователь наиболее современной e-reader с tft матрицей?...
Salkin355 Salkin355  01.06.2019 05:20
Паскаль. дана площадь круга и площадь квадрата. поместится ли круг в квадрат? квадрат в круг?...
Про100карина666 Про100карина666  01.06.2019 05:10
Покажите, что программа не всегда верно определяет максимальное из трёх чисел, записанных в переменные a,b, c. если a b то m: =a if a b then m: =a; иначе m: =b всё else m: =b;...

Популярные вопросы