Вычислить 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 строке выдает ошибку?
Вот код
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 строке выдает ошибку?
More Questions From This User See All
Answers & Comments
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.