Паскаль, информатика,8 класс​

var i,i2,i3:integer;

begin

for i:=8 downto 1 do begin

 i2:=i*i;

 i3:=i2*i;

 writeln(i:4, i2:4, i3:4);

end;

end.

Объяснение:

var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;

begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln('массив с замененным минимальным элементом'); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.

дано:

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

t= 1 мин=60 сек

v= 15 мбайт

i-?

решение:

i=v/g*t

i= (15*8*1024*1024 бит)/(44100гц*60сек)= 48 бит