Вычислить y= 3k! +t! с функции. вот код var y, - вопрос №57934363 от malinka1212 20.09.2022 07:34

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(+fact(t); writeln( otvet , y); readln; end. можете разобраться почему в 6 строке выдает ошибку?

malinka1212 · Answer

Var y, k, t:integer;function fact(n:integer):integer;beginif n=1 thenfact:=1else fact:=n*fact(n-1);end;beginwrite( vvedi chislo: );readln(k, t);y:= 3*fact(k)+fact(t);writeln( otvet , y);readln;end....