Question

Составьте программу вычисления куба суммы всех четных чисел от 2 до 100 и как она работает

Answer 1

1. program task31102063;
2. var
3.  Sum: real;
4. begin
5.  for var i := 2 to 100 do
6.    if i mod 2 = 0 then
7.      Sum := Sum + Power(i, 3);
8.  Writeln(Sum);
9. end.

Принцип очень прост: инициализируем цикл с итератором, равным 2, до 100. Далее проверяем, является ли итератор (то есть число) чётным - для этого просто возьмем целую часть от деления на 2. Если равна нулю, то число чётное, если нет - то это остаток.