Напишите программу вычисления суммы первых чисел фибоначи, таких, что их значение s не должно превышать типа integer для pascal

269

481

Посмотреть ответы 2

Ответы на вопрос:

MrMut222

Информатика

4,6(2 оценок)

Компилятора нету,попробуй этот код var n,sum,a,b,c,i: integer; begin a: =0; b: =1; readln(n); //посчитать сумму первых n чисел for i: =1 to n do begin sum: =sum+a; c: =a; a: =b; b: =c+a; end; writeln(sum); end. //через repeat until var n,sum,a,b,c,i: integer; begin a: =0; b: =1; i: =0; readln(n); //посчитать сумму первых n чисел repeat sum: =sum+a; c: =a; a: =b; b: =c+a; i: =i+1; until i> =n; writeln(sum); end.

F3ren9d

Информатика

4,6(37 оценок)

Пa 2 п4 пп 24 3 п4 пп 24 5 п4 пп 24 ип4 2 + п4 пп 24 ип4 4 + бп 10 0 п5 ипa квкор ип4 - x! =0 65 x> =0 49 ипa ип4 / ^ [x] п9 ноп - x=0 59 ип9 пa kип5 бп 26 ип5 x! =0 54 ип4 с/п 1 ипa с/п 0 с/п ип5 x! =0 64 ип4 с/п в/о ип5 2 + ип4 бп 56