Помогите решить задачу Pascal

[kickmaster]

Помогите решить задачу Pascal

Доброго времени суток. Помогите пожалуйста решить задачу.:tehnari_ru_837:
Free Pascal Lazarus.
Циклы с постусловием.
Написать программу для определения первого нечетного числа Фибоначчи.
Заранее спасибо.

 

[Gruvi]

Программа, которая определяет, является ли заданное число числом Фибоначчи.

Входной текстовый файл INPUT.TXT содержит одно натуральное число в диапазоне от 2 до 1200000000.

Выходной файл OUTPUT.TXT должен содержать в первой строке 1, если заданное число является числом Фибоначчи, и 0, иначе. В первом случае во вторую строку требуется вывести его порядковый номер.

Turbo Pascal

Var a,b,c,i:longint;
f:text;

BEGIN

Assign(f,'INPUT.TXT');
Reset(f);
Read(f,c);

a:=1;
b:=1;
i:=2;
While c>b do
Begin
b:=a+b;
a:=b-a;
i:=i+1;
End;

Assign(f,'OUTPUT.TXT');
Rewrite(f);

If c=b then
Begin
Writeln(f,'1');
If i<>2 then Write(f,i)
else Write(f,'1 и 2');
End;

Close(f);

END.

программа не в тему конечно, но поможет разобраться.

 

[Vladimir_S]

программа не в тему конечно, но поможет разобраться.

Да тут всё куда проще и глупее:

Var
 a,b,c:Integer;
Begin
 a:=0;
 b:=1;
 Repeat
  c:=a+b;
  a:=b;
  b:=c;
 Until (c>1) and ((c mod 2)=1);
 Writeln(c);
 Readln;
End.

 

[AlexZir]

Можно еще проще

var a:integer;
begin
a:=1
writeln(a);
readln;
end.

Самое первое нечетное число ряда Фибоначчи равно 1 )

 

[Vladimir_S]

Можно еще проще

var a:integer;
begin
a:=1
writeln(a);
readln;
end.

Самое первое нечетное число ряда Фибоначчи равно 1 )

Ну уж тогда так:

Begin
 Writeln('1');
 Readln
End.

 

[kickmaster]

Спасибо =)
:closed: