Вычислить y= 3k!+t! с помощью функции. Вот код var y, k, t:integer; function fact(k,...

Question

Вычислить y= 3k!+t! с помощью функции.
Вот код
var y, k, t:integer;
function fact(k, t:integer):integer;
begin
if k=1 then
fact:=1
else fact:=fact(3*k-1)*k;
begin
if t=1 then
fact:=1
else fact:=fact(t-1)*t;
end;
end;
begin
write('vvedi chislo:');
readln(k, t);
y:= fact(3*(fact(k)))+fact(t);
writeln('otvet', y);
readln;
end.
можете помочь разобраться почему в 6 строке выдает ошибку?

Comments

Потому что в заголовке функция описана с двумя параметрами, а в этой самой шестой строке Вы вызвали её с одним.

Answer 1

Var y, k, t:integer;
function fact(n:integer):integer;
begin
if n=1 then
fact:=1
else fact:=n*fact(n-1);
end;
begin
write('vvedi chislo:');
readln(k, t);
y:= 3*fact(k)+fact(t);
writeln('otvet ', y);
readln;
end.