Числа Фибоначчи - 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
СОХРАНИТЬ ССЫЛКУ