Число Люка

@night_rain · Регистрация: 14.10.2012

Студворк — интернет-сервис помощи студентам

Числа Люка определяются так: первое число равно 1, второе 3, каждое следующее равно сумме двух предыдущих. Составить программу, которая находит сумму первых k чисел Люка(k-задается пользователем).
Спасибо.

@NurlashKO · 14.10.2012, 20:34

Pascal

var
    f :array[1 .. 100] of longint;
    k, i, s :longint;
begin
    read(k);
    f[1] := 1;
    f[2] := 3;
    if (k > 0) then s := 1;
    if (k > 1) then s := 4;
 
    for i := 3 to k do begin
        f[i] := f[i - 1] + f[i - 2];
        s := f[i] + s;
    end;
    
    writeln(s);
end.

@night_rain 0 / 0 / 0 Регистрация: 14.10.2012 Сообщений: 5
		1
	Число Люка 14.10.2012, 20:26. Показов 1532. Ответов 1 Метки нет (Все метки) Числа Люка определяются так: первое число равно 1, второе 3, каждое следующее равно сумме двух предыдущих. Составить программу, которая находит сумму первых k чисел Люка(k-задается пользователем). Спасибо. 0

Опции темы

Число Люка

Решение