Вкус хлеба лишнее, так как всё остальное - это звуки.
Решение:
V=g*i*t
V= 44100Гц*16 бит*120 сек= 8467200 бит
V= 8467200/8*1024*1024= 10 Мбайт
Var
n:integer;
Begin
Write('Введите четырёхзначное число ');
Readln(n);
if ((n>999) and (n<10000)) or ((n>-10000) and (n<-999)) then Begin
Write('Сумма цифр числа ',n);
if ((n div 1000 + n div 100 mod 10 + n div 10 mod 10 + n mod 10) mod 2) = 0 then Write(' чётна') else Write(' не чётна');
End
else write('Число ',n,' не четырёхзначное. Перезапустите программу');
End.
Using System;
class Calc
{
static void Main(string[] args)
{
double s = 0;
for (int i = 1; i < 11; i++)
{
s += (double)1 / i;
}
Console.WriteLine(s);
Console.ReadKey();
}
}
А=J*D*t= 16*16000*30= 7680000 бит = 7680000/8=960000 байт= 960000/1024= 937,5 Кбайт