Дано целое число N . Проверить есть ли оно числом Фибоначчи(через while)(C#)

0 голосов
64 просмотров

Дано целое число N . Проверить есть ли оно числом Фибоначчи(через while)(C#)


Информатика (21 баллов) | 64 просмотров
Дан 1 ответ
0 голосов

Как-то так:
var
A, B, C, N : longint;
Begin
Read(N);
A := 1;
B := 1;
while N <> B do begin
if B > N then break;
C := A + B;
A := B;
B := C;
end;
if B = N then begin
WriteLn('FK-1 = ',A);
WriteLn('FK+1 = ',A+B);
end else WriteLn(N,' не является числом Фибоначчи, ошибка');
end.

(44 баллов)