Pascal ABC, ребят помогите Дано целое число N ( больше 0). Найти сумму N2 + (N + 1)2 + (N + 2)2 + ... (целое число). Решить через repeat

Question

Pascal ABC, ребят помогите Дано целое число N (> 0). Найти сумму N2 + (N + 1)2 + (N + 2)2 + ... (целое число). Решить через repeat

Гость

Ответ(ы) на вопрос:

Accepted Answer

var n, i, s: integer; begin readln(n); s := 2 * n; i := 1; repeat s := s + 2 * (n + i); i := i + 1; until i > n; writeln(s); end.