Вычислить y = 3k!+t! с помощью функции.

Вот код

var y, k, t:integer;

function fact (k, t:integer) : integer;

begin

if k=1 then

fact:=1

else fact:=fact (3k-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 строке выдает ошибку?

Question

Информатика

Мирон

7 января, 14:13

Вычислить y = 3k!+t! с помощью функции.

Вот код

var y, k, t:integer;

function fact (k, t:integer) : integer;

begin

if k=1 then

fact:=1

else fact:=fact (3k-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 строке выдает ошибку?

+1

Ответы (1)

Знаете ответ на вопрос?

Северина · 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.