Question

Дано n = 10. Вычислить n-ое значение
переменных c и d.

Answer 1

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b,k,n):=(1,1,1,10);
  Println('a=',a,'b=',b,'n=',n,'k=',k);
  var c,d:integer;
  while k<=n do begin
    c:=2*a+b; d:=3*b+2*a;
    a:=c; b:=d; k+=1;
    Println('Цикл: a=',a,'b=',b,'c=',c,'d=',d,'k=',k);
    end;
  Println('c=',c,'d=',d);
end.

Результат
a= 1 b= 1 n= 10 k= 1
Цикл: a= 3 b= 5 c= 3 d= 5 k= 2
Цикл: a= 11 b= 21 c= 11 d= 21 k= 3
Цикл: a= 43 b= 85 c= 43 d= 85 k= 4
Цикл: a= 171 b= 341 c= 171 d= 341 k= 5
Цикл: a= 683 b= 1365 c= 683 d= 1365 k= 6
Цикл: a= 2731 b= 5461 c= 2731 d= 5461 k= 7
Цикл: a= 10923 b= 21845 c= 10923 d= 21845 k= 8
Цикл: a= 43691 b= 87381 c= 43691 d= 87381 k= 9
Цикл: a= 174763 b= 349525 c= 174763 d= 349525 k= 10
Цикл: a= 699051 b= 1398101 c= 699051 d= 1398101 k= 11
c= 699051 d= 1398101