Дан фрагмент истинности

200: 2

100|0

50|0

25|0

12|1

6|0

3|0

1|1

0|1

200₁₀=11001000₂

489: 2

244|1

122|0

61|0

30|1

15|0

7|1

3|1

1|1

0|1

489₁₀=111101001₂

543: 2

271|1

135|1

67|1

33|1

16|1

8|0

4|0

2|0

1|0

0|1

543₁₀=1000011111₂

950: 2

475|0

237|1

118|1

59|0

29|1

14|1

7|0

3|1

1|1

0|1

950₁₀=1110110110

1025: 2

512|1

256|0

128|0

64|0

32|0

16|0

8|0

4|0

2|0

1|0

0|1

1025₁₀=10000000001₂

а)сумм(a5: b7)

б)срзнач(c4: c7)

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.

дано:

g= 44,1 кгц=44100 гц

t= 1 мин=60 сек

v= 15 мбайт

i-?

решение:

i=v/g*t

i= (15*8*1024*1024 бит)/(44100гц*60сек)= 48 бит