Определить длительность звукового файла, который уместится на диске (информационная емкость 700 мбайт) при низком качестве звука i=8 бит, моно, 8000 измерений в секунду.

Одна секунда звука по условию кодируется 8000 отсчетов (дискретов), один отсчет занимает 1 байт=8 бит. итого для хранения одной секунды звука требуется 8000*1=8000 байт. тогда длительность звукового файла, который можно разместить в 700 мбайтах составит 700*1024*1024/8000 = 91750.4 с это примерно двадцать пять с половиной часов.

Var a,b,c,d,i,f,g,h,n: integer; begin writeln('введите число'); readln(a); g: =0; c: =0; d: =0; i: =0; f: =0; writeln('введите число для сравнения'); readln(h); for b: =a downto 1 do begin if a mod b = 0 then writeln('его делитель ==> ',b); if a mod b = 0 then c: =b+c; if a mod b = 0 then if b mod 2 = 0 then d: =d+b; if a mod b = 0 then if b mod 2 < > 0 then i: =i+1; if a mod b = 0 then f: =f+1;   if a mod b = 0 then if b mod 2 = 0 then g: =g+1; i f a mod b = 0 then if b> h then n: =n+1;   end; writeln('сумма его делителей ==> ',c); writeln('сумма его чётных делителей ==> ',d);   writeln('количество нечётных делителей ==> ',i);   writeln('количество чётных делителей ==> ',g); writeln('количество делителей ==> ',f);   writeln('количество делителей больших b ==> ',n);   end.

Такое уже было. я на него отвечал, думаю модераторы не против, если свой же ответ здесь предоставлю)   только первых три 1: var p: array[1..10] of integer;     i: integer; count: integer; begin for i: =1 to 10 do read(p[i]); write('сколько цифр массива хотите видеть? -> ');   readln(count); for i: =1 to count do write(p[i]: 3); end. 2: var arr: array[1..10] of integer;     i: integer;       s: integer;       count: integer; beginfor i: =1 to 10 dobeginarr[i]: =random(-10,10); if(arr[i]< 0)  thenbeginwriteln(arr[i]: 4); s: =s+arr[i]; count: =count+1; end; end; writeln('среднее значение = ', s/count); end. 3: var arr: array[1..10] of integer;       i: integer;       crat: integer;       id: integer;           begin    for i: =1 to 10 do    begin    read(arr[i]);     crat: =arr[i] mod 3;     if(crat = 0) then    begin    id: =arr[i];         if(arr[i] = id) then writeln('id = ', i: 2);       end;     end;     end.