Создать рекурсивную функцию поиска i-го члена - вопрос №681079 от 1234567890857 12.01.2021 10:22

Question

Другие предметы: Создать рекурсивную функцию поиска i-го члена последовательности, заданной рекуррентной формулой A1=const1, A2=const2, (программа Паскаль)

1234567890857 · Answer

program proc_2;
function A (i: Integer): Integer;
begin
   if i=1 then A:=1 else
    if i=2 then A:=3 else А:=3*A(i-2)-A(i-1)
end;
  var i: Integer;
begin
   for i:=1 to 10 do Write (A(i),' ');
   Readln
end.