Вычислить 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 wri...

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(3k-1)k; begin if t=1 then fact:=1 else fact:=fact(t-1)*t; end; end; begin wri...

Вычислить 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 строке выдает ошибку?

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.

Вычислить 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 wri...

Вычислить 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 wri...