//Pascal
//1)
var N, mult: longint;
begin
mult := 1;
write('Введите конечное число: '); readln(N);
repeat
write(mult, ' ');
mult := mult * 5;
until (mult > N);
readln;
end.
//2)
var
i: byte;
sum: integer;
begin
sum := 0;
for i := 1 to 49 do
if i mod 2 <> 0 then sum := sum + i;
writeln('Sum = ', sum); readln;
end.
1 2,5 килобайта 64X64X40:8 а дальше перевод в килобайты
1)
150 байт = 150*8 бит = 1200 бит
Количество информации на один символ = 1200/400 = 3 бита
Количество символов в алфавите = 2^3 = 8
2)
Количество символов = 80*55 = 4400
3300 байт = 3300*8 бит
Количество информации на один символ = 3300*8/4400 = 6 бит
<span>Количество символов в алфавите = 2^6 = 64
</span>
3)
Количество символов = 3*80*33 = 7920
6930 байт = 6930*8 бит
Количество информации на один символ = 6930*8/7920 = 7 бит
<span>Количество символов в алфавите = 2^7 = 128</span>