Информатика, опубликовано 2018-08-22 22:34:53 by Гость
1. Дано послідовність чисел Фібоначчі. Визначити члени послідовності u1, u2, … un та їх суму (n - номер за списком).
Ответ оставил Гость
Var
a,b,c,i,n,s: integer;
begin
write(Введите n: );
readln(n);
a := 0;
write(a, );
b := 1;
write(b, );
s:=1;
for i:=3 to n do begin
write(a+b, );
s:=s+a+b;
c := b;
b := a + b;
a := c;
end;
writeln();
writeln(Сумма: ,s);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на