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

Автор: Зикрулло Амири

Зикрулло Амири — Fri, 21 Sep 2018 16:58:12 +0000

как решать задачи на вашем сайте?

Anton — Tue, 15 Dec 2015 14:33:06 +0000

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

olegst1975 — Tue, 15 Dec 2015 10:58:48 +0000

Тоже самое без доп.переменной

  while f1<n do
    begin
    f2:=f1+f2;
    f1:=f2-f1;
    end;
  write(f1=n);

while f1<n do

begin

f2:=f1+f2;

f1:=f2-f1;

end;

write(f1=n);