Синий треугольник, оранжевый круг, жёлтый квадрат, (голубой), жёлтый квадрат, синий треугольник, , зелёный треугольник
function G(n: integer): integer; forward;
function F(n: integer): integer;
begin
if n = 1 then result := 1
else result := F(n - 1) - G(n - 1)
end;
function G(n: integer): integer;
begin
if n = 1 then result := 1
else result := F(n - 1) + 2 * G(n - 1)
end;
begin
Println(F(5)/G(5));//-2
end.
Вот ребус для слова информация
var
x, y: real;
begin
read(x, y);
write((x * x - 7 * x + 6) / abs(y))
end.