Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

найти среднее арифметическое квадратов всех целых чисел от 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; //ожидаем нажатия клавиши enter
end. //конец выполнения программы