Var
hay:longint; { количество стогов сена }
eaten:longint; { количество съеденных стогов }
procedure Eat(var n:longint);
{ съесть 4 стога }
begin n:=n-4; eaten:=eaten+4 end;
procedure Sheep(n:longint);
{ овечка, которой передано n стогов сена }
begin
if n>=4 then begin
if (n mod 5)=0 then begin
n:=n div 5;
Sheep(n);
Sheep(3*n)
end
else begin
Eat(n);
Sheep(n)
end
end
end;
begin
Readln(hay);
eaten:=0;
Sheep(hay);
Writeln(eaten)
end.
<em><u>Тестовое решение:</u></em>
29
8
1.
Даные, програмы, работа
2.
а.)
2строка
б.)
2строка
Что бы это решать,нужно знать что такое граф,если бы знал,то легко решал,а так надо просто сопоставить данные таблицы и графа,легко же)
(-^〇^-)(=^▽^=)\(•ㅂ•)/♥(*¯︶¯*)ヘ( ̄ω ̄ヘ) ♪