Найти минимальное число, большее n, которое нацело делится на 19 - PascalABC.NET
Формулировка задачи:
Дано число n. Необходимо найти минимальное число, большее n, которое нацело делится на 19. Напишите с циклом while
Решение задачи: «Найти минимальное число, большее n, которое нацело делится на 19»
textual
Листинг программы
var n,i:integer;
begin
writeln('Введите n: ');
readln(n);
inc(n);
while (n mod 19<>0) do
inc(n);
writeln('Минимальное число, большее n, которое нацело делится на 19: ',n);
end.
Объяснение кода листинга программы
- Ввод значения переменной
nс помощью функции readln() - Увеличение значения переменной
nна единицу с помощью оператора inc() - Запуск цикла while, который будет выполняться до тех пор, пока остаток от деления значения переменной
nна 19 не станет равным нулю - Внутри цикла увеличение значения переменной
nна единицу с помощью оператора inc() - После выхода из цикла while, выведение на экран значения переменной
n, которое является минимальным числом, большим исходного значенияn, и при этом нацело делится на 19
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д