Надо перевести с этот код паскаль на 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.

Julia10988    3   15.07.2020 16:52    1