Установите соответствие элемента Главная окна программы MS Excel и его название

нужно

дано:

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 мбайт

var a, b, c: integer;

begin

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

if a < b then if a < c then writeln(a, ' - меньшее') else writeln(c, ' - меньшее') else if b < c then writeln(b, ' - меньшее') else writeln(c, ' - меньшее'); end.

var temp: array[1..31] of integer; k,i: integer;

beginfor i: =1 to 31 do readln(temp[i]);

for i: =1 to 31 do 

if a[i]< 0 then inc(k);

writeln(k);

end.

program num1; uses crt; var x: array[1..10] of real; max: real; i : integer; begin clrscr; for i: =1 to 10 do begin write('x[',i,']='); readln(x[i]) end; max: =x[1]; for i: =1 to 10 do if x[i]> =max then max: =x[i]; writeln('max=',max: 3: 1); for i: =1 to 10 do if x[i]=max then begin x[i]: =0; break end; for i: =1 to 10 do write(' *',x[i]: 3: 1,'* '); end.