Как найти среднее арифметическое чисел кратных 10

Как найти среднее арифметическое чисел кратных 10

The simplest method:
Take the average of the outermost two numbers. This will be the same as the average of all 19 numbers, because the numbers in between are evenly spaced out, in a symmetrical pattern.
#frac{10+20+…+180+190}{19}=frac{10+190}{2}#
#=200/2#
#=100#

The longer method would be to expand the expression, and solve manually, or using Gauss’s method:
#frac{10+20+30+40+50+60+70+80+90+100+110+120+130+140+150+160+170+180+190}{19}#

Factor a 10 out of the numerator:
#=frac{10(1+2+3+4+5+6+7+8+9+10+11+12+13+14+15+16+17+18+19)}{19}#

To add the whole numbers from 1 to 19, use Gauss’s method:
#”Sum from 1 to n” = (n+1)(n/2)#
#”Sum from 1 to 19″=(19+1)(19/2)#
#=(20)(9.5)#
#=190#

So, back to the expression:
#frac{(10)(1+2+3+4+5+6+7+8+9+10+11+12+13+14+15+16+17+18+19)}{19}#
#=frac{(10)(190)}{19}#
#=100#

Источник

Среднее арифметическое

Онлайн калькулятор поможет найти среднее арифметическое чисел. Среднее арифметическое множества чисел (ряда чисел) — число, равное сумме всех чисел множества, делённой на их количество.

Программа вычисляет среднее арифметическое элементов массива, среднее арифметическое натуральных чисел, целых чисел, набора дробных чисел.

Формула которая используется для расчета среднего арифметического значения:
формула для нахождения средней арифметической величины

Приведём примеры нахождения среднего арифметического ряда чисел:
Среднее арифметическое двух чисел: (2+5)/2=3.5;
Среднее арифметическое трёх чисел: (2+5+7)/3=4.66667;
Среднее арифметическое 4 чисел: (2+5+7+2)/4=4;

Найти выборочное среднее (математические ожидание):
Среднее арифметическое 5 чисел: (2+5+7+2+3)/5=3.8;
Среднее арифметическое 6 чисел: (2+5+7+2+3+4)/6=3.833;
Среднее арифметическое 7 чисел: (2+5+7+2+3+4+8)/7=4.42857;
Среднее арифметическое 8 чисел: (2+5+7+2+3+4+8+5)/8=4.5;
Среднее арифметическое 10 чисел: (2+5+7+2+3+4+8+5+9+1)/10=4.6;

×

Пожалуйста напишите с чем связна такая низкая оценка:

×

Для установки калькулятора на iPhone – просто добавьте страницу
«На главный экран»

Для установки калькулятора на Android – просто добавьте страницу
«На главный экран»

Смотрите также

Источник

12 / 1 / 0

Регистрация: 19.11.2014

Сообщений: 42

1

22.11.2014, 16:35. Показов 11087. Ответов 6

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

Помогите пожалуйста написать программу на Паскаль. Только без random, если можно



0

ZX Spectrum-128

Эксперт Pascal/Delphi

6805 / 4564 / 4817

Регистрация: 05.06.2014

Сообщений: 22,438

22.11.2014, 17:01

2
Pascal 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

Var
  A:array[1..50] of integer;
  i,n,k:integer;
  s:real;
Begin
  write('Введите N: '); readln(n);
  k:=0;
  s:=0;
  For i:=1 to n do
    Begin
      readln(A[i]);
      if (A[i] mod 5=0) and (A[i] mod 10<>0) then
      Begin
        s:=s+A[i];
        inc(k);
      End;
    End;
  writeln;
  if k>0 then
    writeln('Среднее арифметическое  = ',s/k:0:2)
  else
    writeln('Таких чисел нет.');
  readln;
End.



1

JokeR.BY

CAPITAL OF ROCK!

1281 / 708 / 982

Регистрация: 03.03.2010

Сообщений: 2,286

22.11.2014, 17:10

3
Pascal 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

var
    m : Array Of ShortInt;
    i, n : Byte;
    avr5 : LongInt = 0;
    avr10 : LongInt = 0;
    count5 : Byte = 0;
    count10 : Byte = 0;
 
begin
    Write('Input n=');
    ReadLn(n);
    SetLength(m, n);
    for i := 0 to n-1 do
    begin
        Write('m[', i+1, ']=');
        ReadLn(m[i]);
        if ((m[i] mod 5) = 0) then
        begin
            avr5 := avr5 + m[i]; //сумма таких элементов
            Inc(count5); //их количество
        end;
        if ((m[i] mod 10) <> 0) then
        begin
            avr10 := avr10 + m[i]; //сумма таких элементов
            Inc(count10); //их количество
        end;
    end;
    if (count5 <> 0) then
        WriteLn('AVR5=', (avr5 / count5):0:3)
    else
        WriteLn('No one');
    if (count10 <> 0) then
        WriteLn('AVR10=', (avr10 / count10):0:3)
    else
        WriteLn('No one');
end.



0

12 / 1 / 0

Регистрация: 19.11.2014

Сообщений: 42

22.11.2014, 17:25

 [ТС]

4

ну мне известно количество элементов массива 10 элементов, вывожу их сразу через const N=10, получается мне k вводить не нужно?

Известно, что 10 элементов
Const N=10



0

ZX Spectrum-128

Эксперт Pascal/Delphi

6805 / 4564 / 4817

Регистрация: 05.06.2014

Сообщений: 22,438

22.11.2014, 17:27

5

В обеих программах вводите первое число – количество элементов в массиве. Затем вводите столько элементов массива, сколько указали.

Добавлено через 1 минуту

Pascal 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

const
 n=10;
var
A:array[1..n] of integer;
i,n,k:integer;
s:real;
Begin
 
k:=0;
s:=0;
For i:=1 to n do
Begin
readln(A[i]);
if (A[i] mod 5=0) and (A[i] mod 10<>0) then
Begin
s:=s+A[i];
inc(k);
End;
End;
writeln;
if k>0 then
writeln('Среднее арифметическое = ',s/k:0:2)
else
writeln('Таких чисел нет.');
readln;
End.



1

12 / 1 / 0

Регистрация: 19.11.2014

Сообщений: 42

22.11.2014, 17:39

 [ТС]

6

а если известно количество, K можно присвоить 10 или нельзя?

Добавлено через 7 минут
а что такое ink(k)?



0

CAPITAL OF ROCK!

1281 / 708 / 982

Регистрация: 03.03.2010

Сообщений: 2,286

22.11.2014, 17:49

7

Nike91, k – количество элементов, удовлетворяющих условию.
inc(k) – инкремент (увеличение на единицу в данном случае).



1

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

 22.11.2014, 17:49

7

Источник

letmelugdb

1. Найти среднее арифметическое двузначных чисел кратных 7
2. Найти среднее арифметическое первых 10 чисел делящихся на 5
(в паскале)

nkpk

Светило науки – 210 ответов – 324 помощи

begin

var m,u,p,t:integer;

 for var i:=10 to 99 do

 if i mod 7 =0 then

 begin

 m:=m+i; u:=u+1;

 end;

 Writeln(‘Среднее чисел которые дклятся на 7=’,m/u);

 for var i:=1 to 99 do

 if i mod 5 = 0 then

 begin

 p:=p+i; t:=t+1;

 if t > 10 then break; 

 end;

 Writeln(‘Среднее чисел которые дклятся на 5=’,p/t);

end.

danulpopov

Светило науки – 748 ответов – 0 раз оказано помощи

//1
var
average:real;
i,cnt:integer;
Begin
For i:= 10 to 99 do
  if (i mod 7 = 0) then
    begin
      average := average + i;
      inc(cnt);
    end;
average:=average / cnt;
Writeln(average);
end.
//2
var
average:real;
i,cnt:integer;
Begin
i:= 0;cnt:= 0;
while (true) do begin
  inc(i);
  if (i mod 5 = 0) then
    inc(cnt);
  average:=average + i;
  if (cnt = 10) then
    break
end;
average := average / 10;
Writeln(average);
end.

Источник

Наконец, человечество дошло и до этих великих изобретений. В 1876 г американец А.Белл изобрел аппарат, который довольно точно передавал звучание человеческого голоса. Первоначально он назывался “говорящий телеграф” и действовал на линии не больше 500 м., а трубка прибора служила то для передачи, то для приема звука попеременно.

В 1895 г А.С.Попов изобрел радиоприемник, а в 1897 г он впервые в России передал радиопрограмму “Генрих Герц” на расстоянии 250 м.

А уже в 1911 г русский ученый Л.Б. Лозинг осуществил первую в мире телетрансляцию. Регулярные телевизионные передачи шли уже с середины 30-х гг.

Интернет

Запуск Советским Союзом искусственного спутника Земли в 1957г поставил Америку перед необходимостью создания надежной системы передачи информации. Калифорнийскому университету было поручено создать компьютерную сеть, которая была названа ARPANET. Уже в 1971 г была разработана программа для передачи электронной почты по сети, а в 1973 г через трансатлантический телефонный кабель к этой сети подключились первые иностранные организации Великобритании и Норвегии. В 1983 г современное название “Интернет” закрепилось за уже усовершенствованной и расширенной сетью ARPANET.

Степени два числа
128=2^7
Ответ:
7 бит/ символов

Var N,S: integer;
begin
N:=0;
S:=0;
while s<=47 do
begin
N:=n+1;
S:=s+2;
end;
write(N);
end.
Ответ: 24

Ответ:

204 800 бит

Объяснение:

16×32=512строк

512×25=12 800 символов

12 800×16=204 800 бит

если я правильно понял , что тебе нужно то ответ правильный (надеюсь)

Источник

Добавить комментарий