Дано вещественное число А и целое число N (amp;gt;O) используя один

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

Задать свой вопрос
1 ответ

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.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт