Напечатать минимальное число, большее 200, которое нацело делится на 17 - PascalABC.NET
Формулировка задачи:
Напечатать минимальное число, больше 200, которое нацело делится на 17. Желательно с помощью While
Решение задачи: «Напечатать минимальное число, большее 200, которое нацело делится на 17»
textual
Листинг программы
var n:integer;
begin
n:=200;
while n mod 17<>0 do
n:=n+1;
write('n=',n);
end.
Объяснение кода листинга программы
- Создается переменная
nтипа integer (целое число) и инициализируется значением 200. - Запускается цикл while, который будет выполняться до тех пор, пока остаток от деления переменной
nна 17 не станет равным нулю. - Внутри цикла к переменной
nприбавляется единица. - Когда остаток от деления переменной
nна 17 станет равным нулю, цикл while завершится. - Значение переменной
nвыводится на экран с помощью функции write, при этом в качестве аргумента передается строка 'n=' и значение переменнойn. - Код завершается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д