Изменение программы в ТР

[dante92]

Вот условие задачи.вычислить число фибоначчи с номером к.Напечатать четные числа фибоначчи,следующие за вычисленным,сумма которых не больше а(а и к задаются).
Вот решение:
Var k,i,a,s:longint;
f:array[1..100] of longint;
Begin
Readln(k,a);
s:=0;
f[1]:=1;
f[2]:=1;
for i:=3 to 100 do begin
F[i]:=f[i-2]+f[i-1];
end;
writeln(f[k]);
i:=k+1;
while s<a do begin
s:=s+f[i];
if f[i] mod 2=0 then write(f[i],' ');
i:=i+1;
end;
readln;
end.

Подскажите пожалуйста как можно задачу решить без array?Просто array пока в универе не изучали,не примет препод....

[IT-man]

стучи в аську! сделаю) дешево)

[Влад12]

Вечер добрый!
Введи 3 переменные: var x,y,z: Longint;
Замени f[1] и f[i-2] на x и f[2] и f[i-1] на y. Далее
for i:=3 to k do begin
z:=x+y;
x:=y;
y:=z
end;
writeln(z);
Ну и т.д. Не забывай тока после вычисления числа Фибоначчи обновлять переменные х и y.