Var sum:real; n:integer; x,factorial,multiplier:real;
begin
readln(x,n);
factorial:=1;
multiplier:=1;
for n:=1 to n do begin
factorial*=n;
multiplier*=x;
sum+=multiplier/factorial;
end;
writeln(sum);
end.
100 Мбит/с = 100×1024×1024/8 = 13107200 байт/с
На странице 50 строк по 70 символов значит 50×70 =3500 байт одна страница
13107200/3500=3744 страницы за 1 секунду
2
Переведем в килобайты 122880/8=15360 байт/с 15360/1024= 15 кбайт/с
2250/15 =150 секунд
3.
256000×120 = 30720000 бит /8=3840000 байт/1024=3750 кбайт
<em>я так понял на паскале так как информатика </em>
Среда Разработки PascalABC.NET
function factorial(n:integer):integer;
var f:integer;
begin
f :=1;
if(n = 0) or (n = 1) then
factorial:=1
else
if(n>1) then
begin
for var i:=2 to n do
f*=i;
factorial:=f;
end;
end;
begin
var (n,k):=ReadInteger2('n,k = ');
Writeln('Ck/n = ',factorial(n)/(factorial(n-k)*factorial(k)));
end.