Александровна1244
Александровна1244
24.06.2022
?>

На вход дается натуральное число N. Выведите следующее за ним четное число Формат входных данных На вход дается целое положительное число N, не превышающее 10000. Формат выходных данных Выведите одно целое число - ответ на задачу. Sample Input 1: 7 Sample Output 1: 8 Sample Input 2: 8 Sample Output 2: 10 УМОЛЯЮ НАПИШИТЕ В ПАСКАЛЕ

Информатика
Ответить

Ответы

Ольга Сергей1822
Ольга Сергей1822
24.06.2022

var

 n: integer;

begin

 write('Введите число: ');

 readln(n);

 if Odd(n) then begin

   n += 1;

   writeln(n);

   end

 else begin

   writeln(n);

   end;

end.

Объяснение:

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

На вход дается натуральное число N. Выведите следующее за ним четное число Формат входных данных На вход дается целое положительное число N, не превышающее 10000. Формат выходных данных Выведите одно целое число - ответ на задачу. Sample Input 1: 7 Sample Output 1: 8 Sample Input 2: 8 Sample Output 2: 10 УМОЛЯЮ НАПИШИТЕ В ПАСКАЛЕ
Ваше имя (никнейм)*
Email*
Комментарий*

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

mar77873
Правовая защита информации конспект
Автор: mar77873
admiralbany
Какая информация, полученная с органов обоняния 12 букв
Автор: admiralbany
ocik1632933
Написать программу для определения сколько раз число 10 встречается среди элементов одномерного массива. (10, 9.6, 7, 10, 2, 4, 6, 7, 10, 11, 22, 33)
Автор: ocik1632933
fakelel
Program nl; Var: x, y; real; Begin Readln (x); if x>=0 then y:= x*x Else y:= sqrt(x) Writeln(y); End. Program nl; Var: x, y;real; Begin Readln(x); if (8-x)<>0 then y:=3x/8-x Else Writeln('реш...
Автор: fakelel
Геннадьевич-Тимофеева158
До якого класу ви працювали з програмою Скретч? ів. Позначу відповідь, як найкращу ... К какому классу вы работали с программой Скретч? Обозначу ответ, как лучший
Автор: Геннадьевич-Тимофеева158
Сергей_Крутикова114
Суть : дана целочесленная матрица n-ого порядка < 10, нужно выбросить из матрицы все не четные столбцы, но не просто вывести только их, а пребегнуть к сдвигу массива так, чтобы остались только ...
Автор: Сергей_Крутикова114
IP1379
Укажите верные утверждение while Варианты ответов на скрине ​
Автор: IP1379
Nugamanova-Tatyana840
Какой командой из меню можно настроить интерактивность чего-либо (гиперссылка)?
Автор: Nugamanova-Tatyana840
Казаков
Для создания схем в текстовом документе необходимо воспользоваться? ответы: EmEditor Notepad2 OpenOffice.org Writer DPAD
Автор: Казаков
татьяна1245
Просматривая содержимое папок ученик последовательно просмотривал списки имён файлов и папок следующих папок естественные дисциплины учебный план а: \ учебники биология учебники украинская .укажите: а...
Автор: татьяна1245
Nonstop788848
Определить что будет на выходе в результате выполнения алгоритма, записанного на языке программирования ABC pascal. var n: integer; begin n:=200; while (n mod 18 <>0) do n:=n+1; writeln ('отве...
Автор: Nonstop788848
egorova90356684858370
Кто отвечает за создание 2D и 3D графики​
Автор: egorova90356684858370
Abdulganieva1367
Использовать Чертёжник алг рис•кв (5)•кв (3)коналг кв (арг цел а)начОпустить перосместиться на вектор (0, а)сместиться на вектор (a, 0)сместиться на вектор (0, -а)сместиться на вектор (-а, 0)НУЖНО ...
Автор: Abdulganieva1367
Yevgenii_Gurtovaya1532
Андрей недавно выучил алгоритм бинарного поиска. этот алгоритм предназначен для поиска числа в отсортированном массиве чисел. к сожалению, андрей правильно уловил идею, но не до конца запомнил детал...
Автор: Yevgenii_Gurtovaya1532
olyaartemenko
Терміново! Дано дійсне число - ціну 1 кг цукерок. Вивести вартість 1, 2, ..., 10 кг цукерок. Програмування: Java(processing​
Автор: olyaartemenko
▲