Var
a: array [1..20] of integer;
i, n: integer;
k: longint;
begin
readln(n);
k := 1;
for i := 1 to n do
begin
a[i] := random(10);
write(' ', a[i]);
end;
writeln();
for i := 1 to n do
k := k * a[i];
writeln(k);
end.
Uses Crt;
const n=11;
type Vec=array [1..n] of integer;
var F: Vec;
i, Col, el,Rez: integer;
flag: boolean;
begin
for i:=1 to n do
begin
F[i]:=10+random(90);
if (F[i] mod 2 <>0) then Col:=Col+1;
end;
flag:=false;
for i:=1 to n do
if (F[i] mod 2 = 0) then
begin
flag:=true;
el:=F[i];
exit;
end;
Rez:=Col*el;
Writeln(' Rez = ', Rez);
ReadLn;
end.
Переводим 3,5 КБ в биты,учитывая,что один знак=8битам
3,5 КБ=286720бит
Теперь делим данное число на кол-во знаков по битам
Получаем 286720/8=35 840 Байт(знаков)
Следует учитывать,что это решение верно,для кодировки КОИ-8
ОТВЕТ:35 840 знаков
1-корпус
2-блок питания
3 - процессор с кулером
4 вентилятор
5 ОЗУ
6 видеокарта
7 сетевая карта
8 звуковая карта
9 дисковод СD - DVD
10 дисковод для дискет
11 винчестер
12 материнская плата