Type tbank=record name:string; curs:real; end; var banks:array[1..15] of tbank; max,dollars:real; i,mi:longint; Begin Write('You have: '); readln(dollars); for i:=1 to 15 do Begin Write('Bank name: '); readln(banks[i].name); write('Curs: '); readln(banks[i].curs); end; max:=dollars*banks[1].curs; mi:=1; for i:=2 to 15 do Begin if(dollars*banks[i].curs>max) then Begin max:=dollars*banks[i].curs; mi:=i; end; end; writeln('Best bank name: ',banks[mi].name,', curs is :',banks[mi].curs:2:2,', we will get: ',max:2:2,', rub.'); end.
name:string;
curs:real;
end;
var banks:array[1..15] of tbank;
max,dollars:real;
i,mi:longint;
Begin
Write('You have: ');
readln(dollars);
for i:=1 to 15 do Begin
Write('Bank name: ');
readln(banks[i].name);
write('Curs: ');
readln(banks[i].curs);
end;
max:=dollars*banks[1].curs;
mi:=1;
for i:=2 to 15 do
Begin
if(dollars*banks[i].curs>max) then Begin
max:=dollars*banks[i].curs;
mi:=i;
end;
end;
writeln('Best bank name: ',banks[mi].name,', curs is :',banks[mi].curs:2:2,', we will get: ',max:2:2,', rub.');
end.
Формула: I=Ki и N=2 ^{i}
K =30 N=128 найти I
решение
N= 2 ^{i} 128 =2 ^{7} i=7 бит
I =Ki =30•7 =210 бит
2.
l =Ki
N= 2^{i}
I = объем информации
k = кол-во символов
i = минимальное кол-во бит для кодирования одного символа
N = мощность алфавита;
k = 64•256 = 16384
N= 32
i = ㏒_{2} 32 = 5 бит
I = 16384 • 5 = 81920 (бит) = 10240 (байт) = 10 Кбайт
ответ: 10 Кбайт
3.
0,5 Кбайта • 1024= 512 байта
4.
Извини, не могу решить, вроде решил а потом перерешил и неправильно, вот что есть уж пока:
На один символ - 1 байт
30 строк по 50 символов = 1500 символов
3 страницы - это 4500 символов
ответ: 4500 байт!