1)
var n,i:integer;
p:real;
begin
write('n=');
readln(n);
p:=1;
for i:=1 to n do
p:=p*2*i;
writeln('p=',p);
end.
2) var i,s,n:integer;
begin
write('Введите n=');
readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln('Сумма s=',s);
end.
8=2^3 ----> 3 бита для кодировки одного номера пути
каждый номер пути несёт 3 бита информации
ответ: 3 бита
В Милеомперах по мойму, но лутше праверь.
1) 512=2^9; - 9 бит 1 пиксель после сжатия;
4096=2^12 - 12 бит 1 пиксель до сжатия
2) 12/9=4/3 - каждый пиксель после сжатия уменьшит свой размер в (4/3) раза
3) 1050*4/3=350*4=1400 (Кбайт)