Программы

[Арсен1]

Помогите решить до 9 июня (среда) плиз

[Филантроп]

контакты в профиле! сделаю за деньги

[ROMA2PVT]

-I-

Const
p=3;
l=30;
var
n:integer;
c:real;

function  fact(m:integer):real;
var
    i:integer;
    k:real;
begin
k:=1;
for i:=1 to m do
  k:=k*i;
fact:=k;
end;

begin
Writeln('C_30^3');
C:=fact(l)/(fact(p)*(fact(l-p)));
Writeln('Result:',c);
end.

P.S:Ну а остальное айда во фриланс.А вообще гугл вам в помощь.

[Арсен1]

Спасибо) выручаешь)