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

    Дано вещественное число А и целое число N (>O) используя один цикл найти сумму. 1+ А+ А ( в кд.) + А (в кубе) + .

    • Автор:

      sunshine

  • program summ;

    var A, S, P: real;

    N: integer;

    begin

    writeln(\'Введите вещественное число А: \');

    readln(A);

    writeln(\'Введите целое число N: \');

    readln(N);

    S:= 1;

    P:= 1;

    for i:integer:= 1 to N do

    begin

    P:= P * A;

    S:= S + P;

    end;

    writeln(\'Cумма степеней числа А: \', s)

    end.

    • Отвечал:

      roland6jna
    • 0

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

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