Munn
4 год назад
Напишите программу на PascalAbc, которая находит n-ое число из ряда Фибоначи
ОТВЕТЫ
Веска
Oct 24, 2020
//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.
//числа Фибоначчи
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.
477
Смежные вопросы:
