Вопрос по информатике:
Вычислить 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 строке выдает ошибку?
- 08.04.2018 04:45
- Информатика
- remove_red_eye 3518
- thumb_up 41
Ответы и объяснения 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.
- 10.04.2018 00:32
- thumb_up 8
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.