Как-то так: 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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку