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

Question

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

Answer 1

Var
    s: longint;
    i: integer;
begin
    s := 0;
    for i := 100 to 300 do
        s := s + i * i * i;
    writeln(s);
end.

Answer 2

VAR
  S: longint;

begin
  for k: integer := 100 to 300 do
    s += sqr(k);
  writeln(s);
end.

Comments

В паскале, извиняюсь что не уточнил.

---

это тоже паскаль только Pascal.Net

---

только в решении ошибка - не квадраты, а кубы