Сделай не Integer а Real и все) Это из-за деления. Интеджер ругается на деление)
Какие типы моделей? Не понятен мне вопрос( Прости ответа нет
Объем звукового файла равен произведению характеристик.
32000 гц * 4 байт * 120 секунд * 4 канала = 1000 * 2^5 * 2^2 * 120 * 2^2 = 120000 * 2^9 = 60000 * 2 * 2^9 = 60000 * 2^10 байт
Чтобы перевести в мегабайты, нужно два раза разделить на 1024
(60000 * 2^10)/(1024*1024) = 60000/1024
<span>Так как нужно примерное время, можем 1024 принять за 1000, то есть получается ~60 Мб.
2. Комбинаторика. Слова состоят из пяти букв, буква Х может быть либо на последнем месте, либо её нет вообще
****Х
*****
Каждая оставшаяся звездочка принимает одно из оставшихся трёх значений. Для первого случая количество слов будет равно 3^4 = 81, для второго 3^5 = 243. Общее количество слов равно
81+243 = 324
</span>
Var
a:array [1..12] of integer;
i,s:integer;
begin
writeln('vvedite 12 chisel');
for i:=1 to 12 do
readln(a[i]);
writeln('massiv');
for i:=1 to 12 do
write(a[i],' ');
writeln();
for i:=1 to 12 do
if abs(a[i])>15 then s:=s+1;
writeln('kolichestvo elementov = ',s)
end.