Question

Сделать программу на паскале + блок схему 15 .Вычислить : 1+2+3+5+8+13+…

Answer 1

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

//Внимание! Если программа не работает, обновите версию!

begin

  var x:=readinteger('x=');

  var mas:= new real[x];  mas[0]:=1; mas[1]:=2;

  for var i:=2 to x-1 do

   mas[i]:=mas[i-2]+mas[i-1];

  mas.Println;

  Writeln('Сумма=',mas.Sum)

end.

Answer 2

Для вычисления суммы ряда чисел 1, 2, 3, 5, 8, 13 и т.д., можно использовать программу на языке Pascal. Вот пример программы, которая вычисляет сумму первых 15 чисел этого ряда:

program FibonacciSum;

var
  n, i: integer;
  sum, a, b, temp: integer;

begin
  n := 15; // количество чисел в ряду
  a := 1;
  b := 2;
  sum := a + b;

for i := 3 to n do
  begin
    temp := a + b;
    sum := sum + temp;
    a := b;
    b := temp;
  end;

writeln('Сумма первых ', n, ' чисел ряда Фибоначчи: ', sum);
end.

Эта программа использует цикл `for` для вычисления суммы первых 15 чисел ряда Фибоначчи. В каждой итерации цикла вычисляется следующее число ряда и добавляется к сумме. Результат выводится на экран.

Пример работы программы:

``` Сумма первых 15 чисел ряда Фибоначчи: 1973 ```

Примечание: Программа представлена в синтаксисе Pascal. Если вы хотите использовать эту программу, убедитесь, что ваш компилятор поддерживает Pascal или сконвертируйте код в синтаксис другого языка программирования, который вы планируете использовать.

Источники: