Огромная просьба

← →
ВОВКА (2002-09-19 21:03) [0]

Вычислить последовательность N чисел А0=х, А1=2, Ак=Ак-1 - Ак-2.

А0, 0(и все символы справа от букв А)-имеется в виду нижний регистр, т.е А нулевое, А первое, и т.д

Просьба кто сможет плиз помогите!!!!!!!!

← →
Esu © (2002-09-19 21:12) [1]

Мда...

> Ак=Ак-1 - Ак-2.

Упрощаем Ак = (Ак - Ak) - 1 - 2 = -3
Значит все остальные N членов последовательности кроме A0=x и A1=2 равны -3.
x, 2, -3, -3,...,-3
Что значит в данном случае вычислить ? E = x + 2 + N*(-3) ?

← →
MBo © (2002-09-19 21:20) [2]

>Esu
Он имеет в виду (но сам не знает :)
A[k]:=A[k-1]-A[k-2]

var a,b,i,n:Integer;

begin
writeln("введите N");
readln(n);
writeln("введите X");
readln(a);
b:=2;
writeln;
writeln;
writeln(a);
writeln(b);
for i:=1 to N-2 do begin
if odd(i) then begin
a:=b-a;
writeln(a);
end else begin
b:=a-b;
writeln(b);
end;
end;
readln;
end.

Огромная просьба Найти похожие ветки