Найти n=ый элемент и сумму ряда фибоначчи? на тему цикл с известным числом повторения
riga04
3
09.03.2019 18:30
5
Другие вопросы по теме Информатика
CookieMonster131
13.11.2020 19:13
Александра24х4
13.11.2020 19:13
Алиса123464
13.11.2020 19:13
nadyashapeeva
13.11.2020 19:15
arinamerkylceva
13.11.2020 19:15
МисАлександра
13.11.2020 19:23
grigorievatany
13.11.2020 19:29
aaaa1111111111
13.11.2020 19:38
Lololoshka98
13.11.2020 19:39
Популярные вопросы
- Семь пятниц на ! на неделе это какой падеж?...
1 - Сократить обыкновенную дробь перевисти их в десятичную дробь 21/60 54/180...
3 - Отрезки ab и kp пересекаются в точке о так, что ао =ов,ок=ор.докажите,что...
1 - ^1) die musiker, das bundesjugendorchester, viele stadte, kommen, aus, deutschland....
2 - Арифметическая прогрессия задана формулой an=2n-14 является ли число 412 членом...
1 - Написать программу, которая в последовательности натуральных чисел определяет...
2 - Сочините пожелуйста текст с числами на тему спорт. текст 4-6 предложений....
1 - Сочинение на обмане далеко не уедешь...
2 - Почему дети слизывают сладкое кончиком языка?...
3 - Является ли ошибкой если я расписал sinx=+-1\2 , как x=+-п/6+2пт x=+-п/6+2пт...
2
это если без массива
var n,i:integer;
a0,a1,a2,s:real;
Begin
read(n);
for i:= 1 to n do begin
if i<3 then a0:=1
else a0:=a1+a2;
s:=s+a0;
a2:=a1;
a1:=a0;
end;
writeln(a0, s);
End.