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

? число). Решить через repeat

Ответы:

Гульназ Русина

13-11-2018 20:03

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.

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

Написать рассказ о Москве. I live in ....... . There are ....... . You can ...... . We ve got ...... . My favorite ..... is/are Помогите решить сколько сможете ( номер 3 не надо )

Картинка с текстом вопроса от пользователя Даша Демченко

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Pascal ABC, ребят помогите Дано целое число N (> 0). Найти сумму N2 + (N + 1)2 + (N + 2)2 + ... (цело?» от пользователя Даша Демченко в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.

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