Паскаль, найти сумму квадратов черных чисел натурального ряда до 100

Question

Паскаль, найти сумму квадратов черных чисел натурального ряда до 100

Comments

четных, может быть?

---

Ок, напишу для четных, там посмотрим :)

---

включительно?

---

Да)

Answer 1

Var i, sum: integer;
begin
     sum := 0;
     for i := 1 to 50 do
        {answer too big => -24908}
     begin
          sum := sum + i * i * 4
     end;
     writeln('Sum = ', sum);
     readln(i) {programm don't stop and so can read answer}
end.

Comments

var i, sum: integer;
begin
sum := 0;
for i := 1 to 50 do {answer too big => -24908}
sum := sum + i * i * 4
writeln('Sum = ', sum);
readln(i) {programm don't stop and so can read answer}
end.

---

Так лучше