Question

Народ выручайте надо к завтрашнему дню. Дано n = 8. Вычислить n-е значение переменной z.

Answer 1

Program isch;
Varx,y,z,k,n:integer;
Begin
x:=2;y:=3;k:=1;n:=8;
if (k<=n) then
 begin z:=3*y+4*x+1;
x:=y;
y:=z;
k:=k+1;
end;
writeln('z=',z, ' x=',x, ' y=',y, ' k=',k);
end.
Делал строго по алгоритму...