ТутРешу.Ру

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

Задание:

Найти среднее арифметическое квадратов всех целых чисел от 1 до b (значение b вводится с клавиатуры; b>=100). Поподробнее, пожалуйста

Решение:

var //это ключевое слово показывает что началось объявление переменных b, i: integer; //тут показали что переменные b, i типа integer т.е. целые Summ: real; {тут показали что переменные Summ типа real т.е. дробная в ней будет хранится наша сумма} begin // это слово показывает на начало выполнения программы Summ: =0; //присваиваем начальное значение суммы write ('b='); readln (b); //выводим на экран 'b=' и считываем b for i: =1 to b do {повторяем следующую операцию b раз причем каждый раз i будет увеличиваться на 1 изначально i присваивается 1} Summ: =Summ+i*i / 2; {присваиваем сумме ее же значение плюс сразу квадрат переменной i деленный на 2} writeln ('S=', Summ); //выводим 'S=' и за ним сразу значение суммы readln; //ожидаем нажатия клавиши enterend. //конец выполнения программы




Знаете другой ответ?

Отправить свой ответ