Определите информационный объём аудиофайла длительностью звучания 10 секунд, если количество возможных вариантов звукового сигнала равно 1024 при частоте дискретизации 40 кгц. ответ дайте в килобайтах, округлить до целых.

Поскольку протестировать программу без файла нельзя, вот код, нужный файл. // pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! type   fint=file of integer; begin   var f: fint;   assign(f,'integers.bin'); rewrite(f);   seqrandom(20,-50,50).foreach(t-> write(f,t));   f.close end. а теперь, собственно, решение type   fint=file of integer; begin   var f: fint;   assign(f,'integers.bin'); reset(f);   var k: =0;   var b: integer;   while not eof(f) do begin       read(f,b);       if b.iseven then k+=1       end;   f.close;   writeln('кол-во четных компонент файла равно ',k) end. и последнее - программа распечатки значений компонент файла. для контроля. type   fint=file of integer; begin   var f: fint;   assign(f,'integers.bin'); reset(f);   var b: integer;   while not eof(f) do begin read(f,b); print(b) end;   writeln;   f.close end.

1) const f0=1; fk=10; h=0.5; var f: real; i: integer; begin f: =f0-h; writeln('фунты    кг'); for i: =1 to round((fk-f0)/h)+1 do   begin   f: =f+h;   writeln(f: 4: 1,f*0.4: 7: 3);   end; end. 2) const f0=1; fk=10; h=0.5; var f: real; begin f: =f0-h; writeln('фунты    кг'); while f< fk do   begin   f: =f+h;   writeln(f: 4: 1,f*0.4: 7: 3);   end; end. 3) const f0=1; fk=10; h=0.5; var f: real; begin f: =f0-h; writeln('фунты    кг'); repeat   f: =f+h;   writeln(f: 4: 1,f*0.4: 7: 3); until f> =fk; end. результат: фунты    кг   1.0  0.400   1.5  0.600   2.0  0.800   2.5  1.000   9.0  3.600   9.5  3.800 10.0  4.000