Var
max, prev_max, n: integer;
begin
max := -10000;
prev_max := -10000;
repeat
read(n);
if n > max then begin
prev_max := max;
max := n;
end;
until n = 0;
writeln(max, ' ', prev_max, ' ', prev_max / max);
end.
1. Изначально каждый символ кодировался одним байтом, в результате перекодировки стал кодироваться двумя - объем сообщения удвоился. Таким образом, в исходном сообщении 2*1024*1024/2 символов.
2. Аналогично - 8000 битов.
3. Берешь таблицу символов и декодируешь
4. ceil(8192/32/40)=7 листов (ceil - округление до ближайшего БОЛЬШЕГО целого)
5. ceil(12*1024/64/32)=6 листов
6. 2^(10240*8/(40*32*8))=2^8=256 (^ - возведение в степень)
<span>7. 14400*8/(3*40*60)=16 битов.</span>
<span>На планшете упор делается на то, что бы процессор выделял по минимуму тепло и жрал меньше электричества, если говорить просто то в планшете процессор урезанный! А в ПК стоят полноценные процессоры мощнее,чем на планшете,но и электричества ест много,выделяет много тепла и стоит дороже.</span>
Var a:array[1..10] of integer;
i:integer;
begin
i:=1;
repeat
readln(a[i]);
i:=i+1;
until i>10;
end.