Вопрос школьника по предмету Информатика
Помогите написать программу на языке Pascal, используя цикл While:
Последовательность Фибоначчи определяется так:
φ0=0, φ1=1, …, φn=φn-1+φn-2.
По данному числу n определите n-е число Фибоначчи φn.
Ответ учителя по предмету Информатика
//PascalABC.Net 3.2
begin
var n:=readinteger(‘n =’);
var f1:=0; var f2:=1; var i:=1;
while (i<>n) do
begin
f2+=f1;
f1:=f2-f1;
inc (i);
end;
write (f2);
end.
Похожие вопросы от пользователей
1. защитную
2. транспортную
3. опорную
4. проведения возбуждения
1)-8а>0
2)148a>0
3)0,8/a<0
4)-948/-а>0
2.выберете числа входящие в промежуток от 2 до 3
1)√5
2)√8
3)√2
4)√3
3. Пешеход проходит некоторое расстояние за 2 часа. За какое время он пройдёт то же расстояние , если его скорость уменьшится в 1,4 раза?
1)за 3 часа
2)за 1,5 часа
3)за 2,6 часа
4)за 2,8 часа