• Вопрос по информатике:

    Дано вещественное число A и целое число N (> 0). Вывести 1 + A + A2 + A3 + ... + An.

    • Автор:

      piglet
  • Ответ:

    var

      A, Summ:real;

      N, i:integer;

    begin

      Summ := 1;

      write('a = '); readln(a);

      write('n = '); readln(n);

      for i := 1 to n do

        Summ := Summ + A * i;

      writeln('Summ = ', Summ);

    end.

    • Отвечал:

      harleynyj4

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска