N и k вводятся с клавиатуры. найти (n+k+1)!/3*n*k
Program prog; Uses crt; var i, k, n: integer; f: longint; begin clrscr; write('n = '); readln(n); write('k = '); readln(k); f:=1; for i:= 2 to (n+k+1) do f:=f*i; writeln('Res = ', f/(3*n*k):0:3); end.
Долбагб