Вычислить сумму всех чисел фибоначчи ,которые меньше тысячи
Карпыч1
1
19.05.2019 11:30
0
Другие вопросы по теме Информатика
natka73
27.04.2020 19:40
liyaleonteva147котик
25.12.2020 13:53
Rena555582
25.12.2020 13:54
Wika201720062006
25.12.2020 13:55
ddddddddddddddd10
22.04.2020 12:50
garachuk75
22.09.2020 12:52
Anna2004Shevtsova
22.09.2020 12:48
РЧВ21
22.09.2020 12:49
deisika7
22.09.2020 12:54
Популярные вопросы
- Привести 3-4 примера-(про однородные члены предложения) очень...
3 - Развитие дистанционного зондирования в Казахстане...
1 - Сообщение про отношения по математикеЖелательно что то своё...
1 - Пажолуста рускый язык пожолуста...
1 - нужно . только точный ответ...
2 - На соревнованиях в горах лыжник с момента старта 30 м со скоростью...
2 - 2 входная контрольная по алгебре 8 класс 2 вариант...
2 - 4класс нудно составить 3совета по рекомендации по правильному питанию...
2 - 3. Задание Вычислите линейное увеличение ниже приведенной клетки и...
3 - при спалюванні 0,1 моль вуглеводню утворюється 6,72 л вуглекислого...
1
a[1] := 1;
a[2] := 1;
i := 3;
sum := 0;
while (a[i] < 1000) do
begin
a[i] := a[i - 1] + a[i - 2];
inc(i);
end;
for j := 1 to i do
sum := sum + a[i];
write(sum);