Program gt;
var a:array[1..1000]of integer;
n,i:integer;
begin
read(N);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
write(a[i],' ');
if( i mod 4=0)then writeln;
end;
end.
Я сделаю только 1 номер, остальные делаются по аналогии
давай просто возьмем ручку бумажку и нарисуем табличку)
f(1) = 1; g(1) = 1
f(2) = f(1) - g(1) = 1 - 1 = 0; g(2) = f(1) +2 * g(1) = 1 + 2 * 1 = 3
f(3) = f(2) - g (2) = 0 - 3 = -3; g(3) = f(2) + 2 * g(2) = 0 + 2 * 3 = 6
f(4) = f (3) - g (3) = -3 - 6 = -9; g(4) = f(3) + 2 * g(3) = -3 + 2 * 6 = 9
<u>f(5) </u><u>= f (4) - g (4) = -9 - 9 = </u><u>-18</u><u>; </u><u>g(5) </u><u>= f(4) + 2 * g(4) = -9 + 2 * 9 = </u><u>9</u>
таким образом мы и нашли f(5) и g(5), => f(5) / g (5) = -18 / 9 = -2
(P.s. Если ошибся, напиши, я же не робот )