Составьте деревья для вычисления логических выражений и таблицы истинности этих выражений. Под б, г за ранее

program xxx;

var a: string;

begin

    write('введите строку-');

    read(a);

    write(a);

  readln

end.

64000*16=1024000 б=128000 б=125 кб

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.

дано:

g= 44,1 кгц= 44100 гц

i= 16 бит

t=2 мин=120 сек

v-?

решение:

v=g*i*t

v= 44100гц*16 бит*120 сек= 8467200 бит

v= 8467200/8*1024*1024= 10 мбайт