83

Найти среднее арифметическое квадратов всех целых чисел от 1 до k (k вводится…

09 марта 2023

Найти среднее арифметическое квадратов всех целых чисел от 1 до k (k вводится склавиатуры) паскаль

категория: информатика



38

vari,k,sum: integer; beginreadln (k); for i: =1 to k do sum: =sum+sqr (i); write (sum/k: 5:2); end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...