Вычисление суммы чисел от 50 до 70 кратным 4. В циклах: for, while, repeat - Pascal ABC
Формулировка задачи:
Заранее спасибо!!!
Решение задачи: «Вычисление суммы чисел от 50 до 70 кратным 4. В циклах: for, while, repeat»
textual
Листинг программы
program pr; var i, sum: integer; begin sum := 0; for i := 50 to 70 do if i mod 4 = 0 then sum := sum + i; writeln(sum); end.
Объяснение кода листинга программы
В данном коде используется язык программирования Pascal ABC. Переменные в этом коде:
- i - переменная для хранения текущего значения числа, которое проходит цикл;
- sum - переменная для хранения суммы чисел. Цикл for проходит от 50 до 70, шаг равен 1. Внутри цикла проверяется условие i mod 4 = 0, где mod - оператор остатка от деления. Если условие истинно, то к переменной sum прибавляется значение i. После завершения цикла значение переменной sum выводится на экран с помощью функции writeln.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д