Задано число N вывести соответствующий элемент ряда чисел фибоначи:11235821
Задано число N вывести соответствующий элемент ряда чисел фибоначи:11235821
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c,n:integer;begin readln(n); if n <= 2 then writeln(1) else begin a := 1; b := 1; while n > 2 do begin c := a + b; a := b; b := c; dec(n) end; writeln(c); end;end.
ГостьОтвета нет, напишу по-простому.
var
i, n, f1, f2, t: integer;
begin
Write('Задайте натуральное число: '); Readln(n);
f1 := 0; f2 := 1;
for i := 2 to n do begin t := f2; f2 := f1 + f2; f1 := t end;
Writeln('F(', n, ')=', f2)
end.
Тестовое решение:
Задайте натуральное число: 10
F(10)=55
Не нашли ответ?
Похожие вопросы