Признак делимости на 9 - Turbo Pascal
Формулировка задачи:
Уважаемые друзья помогите пожалуйста с задачей по Паскалю.
Для натуральных чисел, не превосходящих заданного k, проверить признак делимости на 9 (сумма цифр числа, делящегося на 9, также делится на 9). Распечатать m последних таких чисел (m<<k).
Долго икала что то подобное, а нашла ее же только на Java. вот код: (Заранее спасибо!).
Решение задачи: «Признак делимости на 9»
textual
Листинг программы
var m, k, i: integer; begin Write('K = '); Readln(k); Write('M = '); Readln(m); while (i < m) and (k > 0) do begin if k mod 9 = 0 then begin Write(k, ' '); i := i + 1; end; k := k - 1; end; Readln end.
Объяснение кода листинга программы
- В начале объявляются три переменные типа Integer: m, k и i.
- Затем происходит вывод сообщений «K = » и «M = », за которыми считываются значения переменных k и m.
- Далее идет цикл while, который выполняется до тех пор, пока i меньше m и k больше 0.
- В условии цикла проверяется, делится ли k на 9 без остатка. Если да, то выводится значение k, переменная i увеличивается на 1, и условие цикла становится ложным.
- После этого значение k уменьшается на 1.
- По завершении цикла считывается следующее значение k.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д