(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 25 * 80 = 2000 шт
i = 16 бит
I - ?
Решение:
I = K * i = 2000 * 16 бит = 32000.0 бит
32000.0 бит = 4000.0 байт = 3.90625 Кбайт
Надо знать точную модель процессора, знать форм-фактор корпуса и т.д., чтобы подобрать нужную модель материнской карты.
Var
a: array [1..12] of integer;
i: integer;
begin
writeln('Начальный вид массива:');
for i := 1 to 12 do
begin
a[i] := -20 + random(41);
writeln('A[', i:2, ']=', a[i]:3);
end;
writeln('Конечный вид массива:');
for i := 1 to 12 do
begin
if a[i] < 0 then a[i] := -1;
writeln('A[', i:2, ']=', a[i]:3);
end;
readln
<span>end.</span>
Var
t,v:integer;
Begin
Write('Введите температуру воздуха(°C): ');ReadLn(t);
if t > -20 then WriteLn('Дети идут в школу')
else if t<-25 then WriteLn('Дети в школу не идут')
else
Begin
Write('Введите скорость ветра(м/с): ');ReadLn(v);
if v>=7 then WriteLn('Занятия отменяются')
else WriteLn('Занятия не отменяются');
End
End.
165*165/8/1024 = 3,3233642578125
4 кбайт / 3,3233642578125 = 1,2035996326905417814508723599633 бит на пиксель.
2^1,2035996326905417814508723599633 = ~ 2 цвета