Комментарии: Решаем задачи Абрамян на Паскале. For33

Автор: Bronislav

Bronislav — Sun, 27 Jan 2019 21:39:02 +0000

program For33;//pabc.net

//uses PT4;

begin
  //Task('For33');
  var N := ReadInteger();
  SeqGen(N, 1, 1, (x, y)-> x + y).Println
end.

program For33;//pabc.net

//uses PT4;

begin

//Task('For33');

var N := ReadInteger();

SeqGen(N, 1, 1, (x, y)-> x + y).Println

end.

Anton — Wed, 09 Dec 2015 04:35:42 +0000

В ответ на olegst1975. Добавил данное решение.

olegst1975 — Tue, 08 Dec 2015 15:22:19 +0000

Без использования третьей переменной:

[crayon-6997a43da7cb7953195763 inline="true" ]
 for i:=3 to n do
    f1:=f1+f2;
    f2:=f1-f2;
    write(f1);
    end;

[crayon-6997a43da7cb7953195763 inline="true" ]

for i:=3 to n do

f1:=f1+f2;

f2:=f1-f2;

write(f1);

end;

[/crayon]