Флэш карта имеет объем 1 ГБ.Определить ,можно ли записать все файлы на накопитель: 200 изображений размером 1МБ , 10 файлов размером 11023КБ, 20 музыкальных клипа 2,3МБ решить задачу по информатике пожылуйста
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin var s:=ReadLines('in.txt').ToArray; var n:=StrToInt(s[0]); var a:=s[1].ToWords.Select(e->StrToInt(e)).ToArray; var f:=OpenWrite('out.txt'); Writeln(f,n,' - (кол-во чисел)'); foreach var e in a do Write(f,e,' '); Writeln(f); Writeln(f,'Среднее значение четных ', a.Where(x->x.IsEven).Average); Writeln(f,'Среднее значение нечетных ', a.Where(x->x.IsOdd).Average); f.Close end.
Var a:array [1..20] of integer; i,p:integer; n:real; m:longint; begin n:=0; p:=0; m:=1; write ('Массив: '); for i:=1 to 20 do begin a[i]:=random(101)-50; write (a[i],' '); end; for i:=1 to 20 do begin n:=n+a[i]; end; n:=n/20; writeln; writeln; write ('Среднее арифметическое = ',n); for i:=1 to 19 do begin if a[20]<>a[i] then p:=p+1; end; writeln; write ('Кол-во чисел отличных от последнего в массиве = ',p); for i:=1 to 20 do begin if a[i]<0 then m:=m*a[i]; end; writeln; write ('Произведение отрицательных чисел массива = ',m); end.
1000гб = 1000мб - наша флешка
200 изображений по 1мб -> 1*200=200мб
10 файлов по размеру 11023кб ~ 10.7646мб -> 10.7646 * 10 = 107.646мб
муз клипы 20 по 2.3мб -> 20 * 2.3 = 46 мб
1000мб - 200мб - 107.646мб - 46мб = 646,354мб
Можно записать + ещё 646,354 свободного места