var
a: array[0..9] of integer;
k, i: integer;
begin
k := 0;
for i := 0 to 9 do
begin
readln(a[i]);
if a[i] > 12 then k += 1;
end;
writeln(k);
end.
1.<span>Виды информации, воспринимаемые с помощью орган чувств.</span>
2.Символ
3.Носитель информации
что бы команды были гарантированно выполненны по крайней мере один раз нужно использовать цикл с постусловием Repeat
repeat
<em>операторы</em>
until <em>условие</em>
Var
a, b, c: integer;
Begin
writeln('Введите числа a, b, c');
readln(a, b, c);
if a >= (b + c) then a:= b + c;
writeln(a);
END.
Формула для кодирования звука:
V=k*i*v*t, где V - размер полученного звукового файла(в битах), i - глубина звука(разрешение)(в битах), v - частота дискретизации(в герцах), t - время записи(в секундах), k - кол-во каналов(моно -1 , стерео -2).
В данной задаче:
V=48 Мбайт=48*1024*1024*8 бит
v=64 кГц=64*1000 Гц
i=16 бит
k=2 (стерео)
t - ?
Находим t:
Так как нужно приблизительное значение, то для упрощения вычислений представим:
В итоге:
Переводим в минуты:
мин
Ответ: 3