Операторы циклов - Pascal ABC
Формулировка задачи:
Добрый день.
Было задание:
Вычислить количество натуральных чисел, кратных трем и не превышающих N.
Я написал программу:
Ответ преподавателя:
Вы решили задачу только с использованием цикла
while
. Необходимо решить еще и с помощью цикловfor, repeat
.Помогите составить программку с тремя циклами.
Решение задачи: «Операторы циклов»
textual
Листинг программы
Uses crt; var i, k, n: integer; begin write('Введите натуральное число N-> '); readln(n); k := 0; i := 3; repeat k := k + 1; i := i + 3; until i > n; writeln('Результат: ', k) end.
Объяснение кода листинга программы
- В программе используется язык программирования Pascal ABC.
- Программа запрашивает у пользователя натуральное число N и сохраняет его в переменную n.
- Инициализируем переменную k = 0, которая будет считать количество повторений цикла.
- Инициализируем переменную i = 3, которая будет использоваться в цикле.
- Запускаем цикл, который будет повторяться до тех пор, пока значение i не станет больше N.
- Внутри цикла увеличиваем значение переменной k на единицу.
- Увеличиваем значение переменной i на 3.
- По завершении цикла выводим на экран результат, количество повторений цикла, которое сохранено в переменной k.