Напишите программу на PascalAbc, которая находит n-ое число из ряда Фибоначи
Напишите программу на PascalAbc, которая находит n-ое число из ряда Фибоначи
Гость
Ответ(ы) на вопрос:
Гость//PascalABC.Net 3.2
//числа Фибоначчи
begin
var x1:=1; var x2:=0;
for var i:=1 to readinteger('n=') do
begin
x2+=x1;
x1:=x2-x1;
end;
write ('Fib(n)=', x2)
end.
Не нашли ответ?
Похожие вопросы