Можно посчитать руками. Но это не интересно.
Заметим, что G(n+1)=F(n)+G(n)=(F(n-1)-G(n-1))+(F(n-1)+G(n-1))=2F(n-1);
G(n+2) = 2F(n)
Аналогично, F(n+1)=F(n)-G(n)=-2G(n-1)
F(n+2)=-2G(n)
Тогда F(5)=-2G(3)=-4F(1)=-4; G(5)=2F(3)=-4G(1)=-4
G(5)/F(5)=1
Var
a, b, c, sum: integer;
function min(x, y: integer): integer;
begin
if(x > y) then result := y
else result := x;
end;
begin
sum := 0;
read(a, b, c);
a := min(a, min(b, c));
while a > 0 do
begin
if(a mod 10 mod 2 <> 0) then sum := sum + a mod 10;
a := a div 10;
end;
write(sum);
end.
var
n: integer;
begin
readln(n);
if(n mod 3 = 0) or (n = 1) then writeln('Является степенью тройки')
else writeln('Не является');
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrGen(10,i->i+9); a.Println;
a:=a.Select(t->t.IsEven ? 2*t : t).ToArray; a.Println
end.
<u>Результат</u>
9 10 11 12 13 14 15 16 17 18
9 20 11 24 13 28 15 32 17 36