Размещено 5 лет назад по предмету
Информатика
от lelasotniova
Надо перевести с этот код паскаль на phyton var i, N: integer; A, P, S: real; begin write('A = '); readln(A); write('N = '); readln(N); P := 1; { <== начальное значение степени числа A } S := 1; { <== начальное значение суммы } for i := 1 to N do begin P := P * A; { <== i-я степень A } S := S + P { <== находим сумму } end; writeln; writeln('Искомая сумма: ', S); readln end.