Program Project1;
var a:array[0..9] of integer; i,sum:integer;beginrandomize;sum:=0; for i:=0 to 9 do begin a[i]:=random(10); Write(a[i],' '); if a[i] mod 2 = 0 then sum:=sum+a[i]; end; Writeln('Sum: ',sum); readln(i);end.<span>
</span>
Нц вправо пока не снизу свободно закрасить
кц
var a:array[1..3,1..4]of integer;
j,i,sum:integer;
begin
for i:=1 to 3 do for j:=1 to 4 do readln(a[i,j]);
for i:=1 to 3 do sum:=sum+a[i,4];
writeln(sum);
end.
1)
[16, 32, 300, 2]
Формула нахождения объема закодированного звука
A = D * i * t * c (D - частота дискретизации, i - глубина бит/разрядность, t - время, c - кол-во каналов)
Приводим единицы измерения
D = 16 кГц = 16000 Гц
t = 300 c
A = D * i * t * c = 16000 * 32 * 300 * 2 = 307200000.0 бит = 37500.0 Kбайт = 36.62109375 Мбайт
2)
[16, 32, 240, 1]
Приводим единицы измерения
D = 16 кГц = 16000 Гц
t = 240 c
A = D * i * t * c = 16000 * 32 * 240 * 1 = 122880000.0 бит = 15000.0 Kбайт = 14.6484375 Мбайт
Word - Абзац - Отступы и интервалы - Интервал