Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
Долбагб
Вас заинтересует
1 год назад
6 лет назад