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

1039лчдвб 1039лчдвб    3   31.07.2019 16:30    0

Ответы
yuljasha1982p0bvky yuljasha1982p0bvky  03.10.2020 18:46
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика