Все просто 20 бит * 20 * 44100 * 2 = 35280000 бит = 4410000 байт если нужно сократить помним что делить надо не на 1000, а на 1024...
Изучение задачи, которую нужно решить через программу
<span> 1. </span>Определение:
-исходных данных
- результат
2. алгоритм будущей программы
3. создание программы
4. тестирование("контрольные точки" рассчитываются "руками" )
5. устранение ошибок
а) uses crt;
var c,d:integer;
s:real;
begin
write('Введите число с: ');
readln(c);
write('Введите число d: ');
readln(d);
s:=(power(c,3)+power(d,3))/2;
writeln('Полусумма кубов равна ',s:5:3);
end.
б) uses crt;
var a,x1,x2,x3,x4,s:integer;
begin
write('Введите четырёхзначное число: ');
readln(a);
x1:=a div 1000;
x2:= a-1000*x1;
x2:=x2 div 100;
x3:=a-1000*x1-100*x2;
x3:=x3 div 10;
x4:=a-1000*x1-100*x2-10*x3;
s:=x1*x2*x3*x4;
writeln('Произведение всех цифр в числе ',a,' равно ',s);
end.
1Мбайт= 1024Кбайта ==> 64Мбайта+2Мбайта=66Мбайт