Вычислить среднегармоническое значение нечетных по значению элементов всего массива. Как записать в паскале?

ты тупой

Объяснение:

я выбирал задания у которых больше всего .

надеюсь тебе это решение

1

var i:integer;

begin

for i:=2 to 100 do

if(i mod 2 = 0) then writeln(i);

end

2

Var

a: Real;

i,n: Integer;

Begin

Writeln

a:=0

for i:=1 to n do

a:= a + sgr(i);

end

Writeln

Readln

end.

6

Var

N1, N2, M, i: Longint

Begin

Write( Wwedite N1= `)

ReadLn (N2)

if (N1=0) and (N2=0) then writeLn;

if N1>N2 then M:= N1 else M:= N2;

i:=M -1;

Repeat

Inc(i);

Until ((i mod N1)=0) and ((i mod N2)=0);

WriteLn ;

end.

12.

program N99210889

const n=10

s: longint = 1

var i: byte;

begin

s: = s+ Term;

Term: = Term×2

end

writeln(s)

readln

end.

Количество информации определяется по формуле: 2 ^ i = N, где i – количество информации. Значение N вычисляется по формуле:

N = (количество дней в месяце) * (количество месяцев в году) * (количество часов в сутках). Отсюда следует, что  N = 31 * 12 * 24 (в октябре - 31 сутки, в одном году - 12 месяцев, в одних сутках - 24 часа).

Сначала вычислим 2 ^ i:

2 ^ i = 31 * 12 * 24 = 8928.

Затем найдем значение i:

i = log 2 (31 * 12 * 24) ≈ 13.12412131 бит информации. Это и будет ответом на поставленный вопрос.

Объяснение: