программа в паскале
Анна Баширова
задание: для заданных m и n вычислить число сочетаний C[sub]m[/sub][sup]n[/sup]     рекуррентной формуле: C[sub]m[/sub][sup]n[/sup] = ((m-n+1)/n)) C[sub]n[/sub][sup]n[/sup][sup]-1 [/sup]C[sub]m[/sub][sup]1[/sup] =m
Текст программы:
program asd;
var n,m,i,f,f2,i2,f3,i3,C: real;
//usus CRT
begin
writeln ;
readln (m);
writeln ;
readln (n);
f:=1;
i:=m;
while i>=1 do begin f:=f*i;
i:=i-1;
end;
f2:=1;
i2:=n;
while i2>=1 do begin f2:=f2*i2;
i2:=i2-1;
end;
f3:=1;
i3:=m-n;
while i3>=1 do begin f3:=f3*i3;
i3:=i3-1;
end;
C:= f/(f2*f3);
writeln (C);
end.
программа неправильная, не могу исправить ошибки, помогите пожалуйста.
Анна Баширова около 1 года назадСпасибо 0
1 чел.