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

While25. Дано целое число $$N$$ ($$> 1$$). Найти первое число Фибоначчи, большее $$N$$. (определение чисел Фибоначчи дано в задании While24).

Решение:

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

program While25;

var

N,F,F1,F2 :Integer;

begin

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

Readln(N);

F1:=1;

F2:=1;

F:=0;

while F < N+1 do

begin

F:=F2+F1;

F2:=F1;

F1:=F;

end;

Writeln(F);

end.

Решение 2:

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

program While25;

var

N,F1,F2 :Integer;

var

f1,f2,n:integer;

begin

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

Readln(N);

f1:=1;f2:=1;

while f1<=n do

begin

f2:=f1+f2;

f1:=f2-f1;

end;

write(f1);

end.

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

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

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

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

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