На некоторой железнодорожной станции находятся n количество мест в каждом поезде. Дежурному станции обязательно нужно узнать сколько мест в каждом поезде, если во всех вагонах число мест одинаковое и наибольшее из возможных А также необходимо знать сколько вагонов в каждом поезде. Входные данные: в первое строке записано натуральное число N - кол-во поездов на станции (2<_N<_10^9). В каждой из следующих N строк записаны натуральные числа a - кол-во мест в каждом поезде (2<_a<_10^9)
выходные данные: В первое строке одно натуральное число - кол-во мест в вагоне. Во второй строке N чисел через пробел - кол-во вагонов в каждом поезде.
Формула: 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 байт!
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.