Найти все трехзначные числа кратные 11-ти и посчитать их количество - PascalABC.NET
Формулировка задачи:
я нашла числа кратные 11-ти,но как посчитать их количество?
Решение задачи: «Найти все трехзначные числа кратные 11-ти и посчитать их количество»
textual
Листинг программы
program chisla11; var i, k: integer; begin k := 0; for i := 100 to 999 do begin if i mod 11 = 0 then begin writeln(i); k := k + 1; end; end; writeln('Количество = ', k) end.
Объяснение кода листинга программы
- Создается переменная k типа integer и инициализируется значением 0.
- Задается диапазон чисел для перебора от 100 до 999 с помощью цикла for.
- В каждой итерации цикла проверяется условие i mod 11 = 0, которое проверяет, делится ли число i без остатка на 11.
- Если условие выполняется, то число i выводится на экран, а значение переменной k увеличивается на 1.
- После завершения цикла выводится сообщение с количеством найденных чисел.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д