Найти значения приведенных ниже логических выражений:

44100*24*60*2=127008000 бит = 15 мбайт

var a,b,c: integer;

begin

clrscr;

readln(a,b,c);

          if a = b then writeln(c);

          if b = c then writeln(a);

          if a = c then writeln(b);

readkey;

end. 

для хранения информации о звуке длительностью t секунд, закодированном с частотой дискретизации f гц и глубиной кодирования b бит требуется b*f*t  бит памяти

f=16кгц=16000гц

в=24 бита

t= 60 с

16000*24*60=23040000бит= 23040000/8/10^6=2,88мб

третий ответ

var

a,b: integer;

begin

readln(a,b);

while a< > b do

  begin

  if a> b then a: =a-b;

  if a< b then b: =b-a;

  end;

writeln(a);

readln;

end.