Происходит четырёхканальный звуко запись с чистотой дискретизации 30кгу и глубиной кодирования 16 бит сколько времени длилось запись если объём полученного файла 8мгб

8 мбайт * 1024 * 1024 * 8 = 67 108 864 бит
16 бит гц * (30 * 1000 Гц) * 4 канала * 1 сек = 1 920 000 бит
67108864 / 1920000 = 35 секунд

Program lol (input, output);
var a, n, b, i, p,s,g m:integer;
c:real;
begin
n:=Random(10000);
writeln (n);
a:=n;
b:=0;
c:=0;
p:=1;
g:=1;
while a <> 0 do
begin
a:=a div 10;
b:=b+1;
end;
while b <> 0 do
begin
p:=1;
for m:=1 to b do
p:=p*10;
s:=(n mod p) div (p div 10);
c:=c+s;
g:=g*s;
b:=b-1;
end;
writeln (c);
writeln (g);
end.

program lol (input, output);
var a, b, i, z:integer;
begin
b:=0;
a:=3;
z:=0;
while a > 2 do
begin
read (a);
z:=0;
for I:=2 to a do
begin
if a mod I = 0 then
begin
z:=z+1;
if (a=I) and (z=1) then
b:=b+1;
end;
end;
end;
writeln (b);
end.

Значитса тебе надо найти квадраты чисел до самого N ,для этого мы объявляем переменную k и присваиваем ей 1 и переменную s, которой присваиваем значение 0, после делаем цикл от 1 до N с шагом 1 и там же к s прибавляем k, а k увеличиваем на 2 ( на 1 шаге k=3, на 2 k=5 и т. д., то есть нечетные числа) ну и выводим в цикле s 

#include <iostream>
#include <conio.h>
using namespace std;
int main()
{   
int N;   
cin>>N;   
int k=1,s=0;   
for(int i=1;i<=N;i++)   
{     
s=s+k;     
k=k+2;   
cout<<i<<"^2 = "<<s<<endl;   
}
_getch();
return 0;
}