Числа Фибоначчи - 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)»

textual
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


СОХРАНИТЬ ССЫЛКУ