16 бит * 24000 Гц * 4 канала * 1 сек = 1536000 бит
1536000 бит / 8 = 192000 байт
192000 байт / 1024 = 187,5 кбайт.
187.5 кбайт / 1024 = 0,18310546875 мбайт
48 мбайт / 0,18310546875 мбайт = 262,144 секунд
из этих и выбери
var
a:byte;
begin
write('Введите число '); readln(a);
if (a div 10 = 4) or (a mod 10 = 4) then
writeln('В число входит цифра 4')
else
writeln('цифра 4 в число не входит');
end.
№1 var s,x,n,i:integer;begins:=0;write('Введите количество чисел: ');readln(n);writeln('Введите числа: ');for i:=1 to n dobeginreadln (x);s:=s+xend;writeln('Сумма чисел равна ',s);end.
№2 var n,i,p:integer;beginp:=1;write('Введите количество чисел: ');readln(n);for i:=1 to n dop:=p*i;writeln('Произведение чисел равнo ',p);end.
Подробнее - на Znanija.com -
znanija.com/task/14923730#readmore