Операторы циклов - 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.

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

  1. В программе используется язык программирования Pascal ABC.
  2. Программа запрашивает у пользователя натуральное число N и сохраняет его в переменную n.
  3. Инициализируем переменную k = 0, которая будет считать количество повторений цикла.
  4. Инициализируем переменную i = 3, которая будет использоваться в цикле.
  5. Запускаем цикл, который будет повторяться до тех пор, пока значение i не станет больше N.
  6. Внутри цикла увеличиваем значение переменной k на единицу.
  7. Увеличиваем значение переменной i на 3.
  8. По завершении цикла выводим на экран результат, количество повторений цикла, которое сохранено в переменной k.

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

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