Pascal ABC, ПОМОГИТЕ РЕБЯТ НУЖНО РЕШИТЬ ЧЕРЕЗ WHILE Дано целое число N (> 0). Найти сумму N2 + (N + 1)2 + (N + 2)2 + ... (целое число).

N2 + (N + 1)2 + (N + 2)2 + ... (целое число).

Ответы:

Karolina Soltys

13-11-2018 19:13

Var n, i, s: integer;begin readln(n); s := 2 * n; i := 1; while i <= n do begin s := s + 2 * (n + i); i := i + 1; end; writeln(s);end.

Также наши пользователи интересуются:

Напишите рассказ про Санкт- Петербург. 5-6 предложений Помогите решить 18х^7×х^13÷(3х^10 )^2

Картинка с текстом вопроса от пользователя ТАХМИНА БОНДАРЕНКО

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Pascal ABC, ПОМОГИТЕ РЕБЯТ НУЖНО РЕШИТЬ ЧЕРЕЗ WHILE Дано целое число N (> 0). Найти сумму» от пользователя ТАХМИНА БОНДАРЕНКО в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!