Напечатать минимальное число, большее 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.

Объяснение кода листинга программы

  1. Создается переменная n типа integer (целое число) и инициализируется значением 200.
  2. Запускается цикл while, который будет выполняться до тех пор, пока остаток от деления переменной n на 17 не станет равным нулю.
  3. Внутри цикла к переменной n прибавляется единица.
  4. Когда остаток от деления переменной n на 17 станет равным нулю, цикл while завершится.
  5. Значение переменной n выводится на экран с помощью функции write, при этом в качестве аргумента передается строка 'n=' и значение переменной n.
  6. Код завершается.

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

Оцени полезность:

7   голосов , оценка 4.286 из 5
Похожие ответы