Оспорю
1 Иван
Первая не согласная
3 Никита
Последняя гласная
Var
i:integer;
c:array [1..15] of integer;
a:array [1..15] of integer;
begin
for i:=1 to 15 do begin
c[i]:=Random (100);
end;
for i:=1 to 15 do begin
if (c[i] mod 2 = 0) then
a[i]:= c[i] div 2
else
a [i]:= c [i] *2;
end;
write ('Массив С: ');
for i:=1 to 15 do begin
write (c [i]);
write (' ');
end;
writeln (' ');
write ('Массив A: ');
for i:=1 to 15 do begin
write (a[i]);
write (' ');
end;
end.
Для решения этой задачи воспользуемся формулой:
V=t*i*d, где V - обьем файла
t - время звучания
i - глубина кодирования(обьем в байтах значит и глубина
тоже в байтах 16/8=2 байта)
d - частота дискретизации
Подставляем все в формулу:
1760000=20*2*d
d=1760000/(20*2)
d=44000 Гц=44 кГц
<u>Ответ: 44 кГц</u>
E =15 (10cc)
A=10 (10cc)
3 2 1 2 -1 -2 <--- позиции цифр в числе
E 4 1 A, 1 2 (16cc) =15*16^3+4*16^2+1*16+10*16^0+1*16^-1+2*16^-2=
=61440 + 1024 + 16+10 + 0,0625 +0,0078125=
=62490,0703125
Ответ:
Уберите точку с запятой. перед else
Объяснение:
If <Операторы>
else <Операторы>