Const N = 9;
var a: array[1..N] of integer;
i, sum: integer;
begin
sum := 0;
for i := 1 to N do begin
a[ i ] := random(12)-2;
write(a[i]:4);
if a[ i ] > 2 then sum := sum + a[ i ];
end;
writeln();writeln();
write(' Сумма всех чисел > 2: ', sum);
<span>end.</span>
Каждый значок финикийского письма соответствовал звуку и был буквой.
Могу только это решение дать
var x,y:real;
begin
read(x,y);
if (x*x+y*y>4) and (y0) then writeln ('YES')
else writeln('NO');
end.
Размер цифрового моноаудиофайла ( V) измеряется
по формуле:<span>
</span>V=f*t*I, где f –частота дискретизации (Гц), t –
время звучания или записи звука, I глубина кодирования.
По этой формуле размер измеряется в битах.
<span>
V=8*1000*30*16=3840000бит=469Кб=0,46Мб<span>
</span>
</span>