Определить число K - Pascal ABC
Формулировка задачи:
Определить k - количество трехзначных натуральных чисел сумма цифр которых равна n (1
Решение задачи: «Определить число K»
textual
Листинг программы
q:=0; for i:=1 to 9 do for j:=0 to 9 do for k:=0 to 9 do if i+j+k=n then q:=q+1;
Объяснение кода листинга программы
- Переменная
q
инициализируется значением 0. - Запускается первый цикл
for
для перебора чисел от 1 до 9. - Внутри первого цикла запускается второй цикл
for
для перебора чисел от 0 до 9. - Внутри второго цикла запускается третий цикл
for
для перебора чисел от 0 до 9. - Внутри третьего цикла проверяется условие
i+j+k=n
. - Если условие выполняется, то к переменной
q
прибавляется 1. - После завершения всех вложенных циклов, значение переменной
q
будет содержать количество комбинаций, удовлетворяющих условиюi+j+k=n
.