Вычисление суммы чисел от 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
