Найти Sr – среднее арифметическое введённых чисел

@Dannic · Регистрация: 16.10.2014

Author24 — интернет-сервис помощи студентам

Ввести два числа n и m . Вывести все степени числа 2 начиная с 2ⁿ
заканчивая 2^m . Найти Sr – среднее арифметическое введённых чисел.
Далее, зная Sr, определить на каком шаге K функция y=1/1+1/2+1/3+⋯+1/К превысит Sr.

@APALoff · 19.12.2014, 09:36

Pascal

Const
  n=1;
  m=4;
Var
  i  : integer;
  sr : Real;
Begin
  Sr:=0;
  For i:=n to m do
  Begin
    Writeln(Power(2,i));
    Sr:=Sr+Power(2,i);
  end;
  Sr:=Sr/(m-n+1);
  i:=1;
  While Sr>0 do
  Begin
    Sr:=Sr-1/i;
    Inc(i);
    { Writeln(i,' ',Sr); }
  end;
  Writeln;
  Writeln(i-1);
end.

@Dannic · 19.12.2014, 23:28 **[ТС]**

Что означает

Сообщение от APALoff

(Power(2,i))

?

@APALoff · 20.12.2014, 10:20

Power

function Power(x,y: real): real;
Возвращает x в степени y

@Dannic · 20.12.2014, 15:14 **[ТС]**

Спасибо!

@volvo · 20.12.2014, 20:36

Меня терзают смутные сомнения, что нужно делать

Pascal

1	Sr := (n + m) / 2;

, потому что

Сообщение от Dannic

Найти Sr – среднее арифметическое введённых чисел

, а вводятся именно m, n... Степени двойки выводятся...

@APALoff · 20.12.2014, 22:14

Ну я посчитал, что слово "введенных" это опечатка - пропущена "ы"... а то как то все слишком просто выходит.
Пусть ТС уточнит данный вопрос.

@Dannic 0 / 0 / 0 Регистрация: 16.10.2014 Сообщений: 5
		1
	Найти Sr – среднее арифметическое введённых чисел 19.12.2014, 01:07. Показов 1217. Ответов 6 Метки нет (Все метки) Ввести два числа n и m . Вывести все степени числа 2 начиная с 2ⁿ заканчивая 2^m . Найти Sr – среднее арифметическое введённых чисел. Далее, зная Sr, определить на каком шаге K функция y=1/1+1/2+1/3+⋯+1/К превысит Sr. 0

@Dannic 0 / 0 / 0 Регистрация: 16.10.2014 Сообщений: 5
	19.12.2014, 23:28 [ТС]	3
	Что означает Сообщение от APALoff (Power(2,i)) ? 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	20.12.2014, 10:20	4
	Power function Power(x,y: real): real; Возвращает x в степени y 1

@Dannic 0 / 0 / 0 Регистрация: 16.10.2014 Сообщений: 5
	20.12.2014, 15:14 [ТС]	5
	Спасибо! 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	20.12.2014, 22:14	7
	Ну я посчитал, что слово "введенных" это опечатка - пропущена "ы"... а то как то все слишком просто выходит. Пусть ТС уточнит данный вопрос. 0