var
i, e: Integer;
s : Real;
LL : array [0..11] of Real;
LL2 : array of Real;
begin
for i:= 0 to 11 do
LL[i] := Random(101) - 100;
i := 0;
e := 0;
while i <= 11 do
begin
if LL[i] <> 0 then
begin
inc(e);
SetLength(LL2, e);
LL2[e-1] := LL[i];
s := s + LL[i];
end;
inc(i);
end;
Writeln('Кол-во ненулевых элементов = ', e);
if s < 0 then s := s * -1;
Writeln('Mодуль сумы элементов нового массива = ', s:0:3, #10#13);
for i := 0 to e - 1 do
Write(LL2[i]:0:1, ' ');
ReadLn;
end.
1) I1 = 1024 * 768 * 32 = 25165824 бит = 3145728 байт = 3072 КБайт = 3 МБайт - объем графического файла без сжатия
2) I2 = 3 * 0.8 = 2.4 МБайт - объем графического файла с коэффициентом сжатия 0.2
В том что 100 - это тип данных integer (целое число), а
100.0 - это тип данных Real (дробные)
Ответ:
- Решение: Дано:
N=54+7+24+1 Nб=54
N=86=2i Nц=7
86=2(в 7 степени) Nз=24
Ответ:7 бит. Nп=1
Найти:i=?
2)
Решение: Дано:
19=2i N=19
19=2(в 4 степени) Найти: i=?
ответ: 4 бит.
3)
Решение: Дано:
N=24+10. Nб=14
N=24=2i. Nс=10
24=2(в 5 степени). Найти:i=?
Ответ:5 бит
Объяснение:
N (Английская)
б (буквы)
ц (цифры)
з (знаки)
п (пробел)
с (символ)
2 в 20 степени бит=128 Кб
байт- 2 в 3 ст.
кило (1024) - 2 в 10 ст
20-13=7
2 в 7 ст.=128
Итог выше