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

дано:

k=1(моно)

t=8сек

v=8кгц

i=8бит

найти

i

решение

по формуле

i=k*t*v*i

i=1*8*8000гц*8=512000бит=64000байт=62,5кбайт

program bapehbe;

var

    l, b, s : integer;

    o : real;

begin

    writeln (' skolko litrov varenya v tazy? ');

    readln (l);

    writeln (' kakaya emkost banok? ');

    readln (b);

    s: = l div b;

    o: = l mod b;

    writeln (' polnih banok_', s);

    writeln (' litrov ostaloc_', o: 2: 2);

    readln;

end. 

uses crt; var a[1..100] of integer; i,n,count: integer; begincount: =0; read(n); for i: =1 to n do read(a[i]); if a[i]> 0 then inc(count); write(count); end.