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

While24. Дано целое число $$N$$ ($$> 1$$). Последовательность чисел Фибоначчи $$F_K$$ определяется следующим образом: $$F_1 = 1, F_2 = 1,F_K = F_{K-2} + F_{K-1}, K = 3, 4, …$$ . Проверить, является ли число $$N$$ числом Фибоначчи. Если является, то вывести True, если нет — вывести False.

Решение:

program While24;
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(F=N);
end.

program While24;

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(F=N);

end.

Решение 2:

program While24;
var
  N,F1,F2 :Integer;
begin
  Write('Введите число N: ');
  Readln(N);
  F1:=1;
  F2:=1;
  while (f1<n) do
    begin
     f2:=f1+f2;
     f1:=f2-f1;
    end;
  write(f1=n);
end.

program While24;

var

N,F1,F2 :Integer;

begin

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

Readln(N);

F1:=1;

F2:=1;

while (f1<n) do

begin

f2:=f1+f2;

f1:=f2-f1;

end;

write(f1=n);

end.

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

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

olegst1975

15.12.2015 в 14:58

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

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

1
2
3
4
5
6

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

Ответить
- Anton
  
  15.12.2015 в 18:33
  
  добавил.
  
  Ответить
Зикрулло Амири

21.09.2018 в 20:58

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

Ответить

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

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

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

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