Числа Фибоначчи - Pascal ABC (14394)
Формулировка задачи:
Дано целое число N (> 1), являющееся числом Фибоначчи: N = FK. Найти целые числа FK–1 и FK+1 — предыдущее и последующее числа Фибоначчи.
Помогите решить задачу с помощью цикла с постусловием.
var //описанмие переменных N, a, b , T:integer; //описание переменных begin //начало програмы writeln ('Введите число Фибоначчи'); readln (N); //вводим число фибоначчи a:=1; //присваиваем а значение 1 b:=1; //присваиваем b значение 1 Repeat T:=b; //Вычисление b:=a+b; //Вычисление a:=T; //Вычисление until (N>b); writeln('следующее число фибоначчи', ' ', b+a); //вычисляем следующее значение writeln('Предыдущее число фибоначчи', ' ', a); //и пишем предыдущее end. //конец программыпробовал так но вычисления не верные получаются
Код к задаче: «Числа Фибоначчи - Pascal ABC (14394)»
var n, a, b :integer; begin writeln ('Введите число Фибоначчи'); readln (n); //вводим число фибоначчи, и только его a:=1; b:=1; Repeat b:=a+b; a:=b-a; until b=n; writeln('следующее число фибоначчи', ' ', b+a); writeln('Предыдущее число фибоначчи', ' ', a); end.
13 голосов, оценка 3.846 из 5
СОХРАНИТЬ ССЫЛКУ