В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Vetal321
Vetal321
23.12.2021 13:57 •  Информатика

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

Показать ответ
Ответ:
Элиза12098
Элиза12098
11.06.2020 16:44

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. //конец выполнения программы

0,0(0 оценок)
Ответ:
daniilprok2004
daniilprok2004
11.06.2020 16:44

#include <iostream>

 

using namespace std;

 

int main()

{

 int b;

 cin>>b;

 float a=1;

 for(int i=2;i<=b;i++)

 {

  a = (a*(i-1)+i*i)/i;

 }

 cout<<a<<endl;

 system("PAUSE");

}

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота