Нужна ! 45 ! : ( текстовое сообщение содержит 1048576 символа. какой информационный объем (выразить в мегабайтах) содержит это сообщение, если информационный вес одного символа 8 бит? , ! надо! (желательно с решением: )
Const N = 7; // количество наименований товаров Var A:array[1..N,1..3] of integer; i,k,S:integer; Begin For i:= 1 to N do Read(A[i,1],A[i,2],A[i,3]); k:=0; For i:= N downto 1 do if A[i,2] = 0 then k:=i; if k > 0 then Begin Write('00 - ',A[k,1]*A[k,3]); S:=0; For i:= k+1 to N do if A[i,2] = 0 then Begin Write('+',A[i,1]*A[i,3]); S:=S+A[i,1]*A[i,3]; End; if S <> 0 then Write('=',S+A[k,1]*A[k,3]); WriteLn; End; k:=0; For i:= N downto 1 do if A[i,2] = 1 then k:=i; if k > 0 then Begin Write('01 - ',A[k,1]*A[k,3]); S:=0; For i:= k+1 to N do if A[i,2] = 1 then Begin Write('+',A[i,1]*A[i,3]); S:=S+A[i,1]*A[i,3]; End; if S <> 0 then Write('=',S+A[k,1]*A[k,3]); WriteLn; End; k:=0; For i:= N downto 1 do if A[i,2] = 10 then k:=i; if k > 0 then Begin Write('10 - ',A[k,1]*A[k,3]); S:=0; For i:= k+1 to N do if A[i,2] = 10 then Begin Write('+',A[i,1]*A[i,3]); S:=S+A[i,1]*A[i,3]; End; if S <> 0 then Write('=',S+A[k,1]*A[k,3]); WriteLn; End; k:=0; For i:= N downto 1 do if A[i,2] = 11 then k:=i; if k > 0 then Begin Write('11 - ',A[k,1]*A[k,3]); S:=0; For i:= k+1 to N do if A[i,2] = 11 then Begin Write('+',A[i,1]*A[i,3]); S:=S+A[i,1]*A[i,3]; End; if S <> 0 then Write('=',S+A[k,1]*A[k,3]); WriteLn; End; End.
Ты не написал список файлов. Давай я тебе объясню фишечку этого задания,чтобы ты мог сам его потом выполнить:) Смотри у тебя есть маска ?ba*r.?xt? Каждый вопросительный знак обозначает один символ. Т.е если указан файл c?t.tx? вместо может стоят столько один знак. Например это может быть cat.txt А звездочка может обозначать любое количество символов.(в том числе и отсутствие символа) например olo*o.doc* может выглядеть вот так: .docx или вот так ololo.doc Разницы нет ибо эта маска подходят в этим обеим файлам. ?ba*r.?xt? может выглядеть так lbraoor.txt например
k=1048576
i=8 бит
Найти
I
Решение
I=k*i
I=1048576*8=8388608 бит = 1Мбайт