Решаем задачи Абрамян на Паскале. While26

While26. Дано целое число $$N$$ ($$> 1$$), являющееся числом Фибоначчи: $$N = F_K$$ (определение чисел Фибоначчи дано в задании While24). Найти целые числа $$F_{K-1}$$ и $$F_{K+1}$$ — предыдущее и последующее числа Фибоначчи.

Решение:

program While26;
var
  N,F,F1,F2 :Integer;
begin
  Write('Введите число N: ');
  Readln(N);
  F1:=1;
  F2:=1;
  F:=0;
  while F < N do
   begin
    F:=F2+F1;
    F2:=F1;
    F1:=F;
   end;
  Writeln(F2,' ',F1+F2);
end.

program While26;

var

N,F,F1,F2 :Integer;

begin

Write('Введите число N: ');

Readln(N);

F1:=1;

F2:=1;

F:=0;

while F < N do

begin

F:=F2+F1;

F2:=F1;

F1:=F;

end;

Writeln(F2,' ',F1+F2);

end.

Другие задачи из раздела While можно посмотреть здесь.

Комментарии 2

olegst1975

15.12.2015 в 15:26

В строке 16, исходя из задачи, вначале F2 потом F1+F2

Ответить
- Anton
  
  15.12.2015 в 18:48
  
  Поправил.
  Было:
  
  Writeln(F2,' ',F1+F2);
  
  1
  
  Writeln(F2,' ',F1+F2);
  
  Стало:
  
  Writeln(F1+F2,' ',F2);
  
  1
  
  Writeln(F1+F2,' ',F2);
  
  Ответить

Решаем задачи Абрамян на Паскале. While26

Комментарии:

Комментарии 2

Добавить комментарий Отменить ответ