Все
Математика
Алгебра
Геометрия
Литература
Русский язык
Истоки
Краеведение
Французский язык
Литературное чтение
Астрономия
Природоведение
Родной край
Немецкий язык
Технология
Физика
Английский язык
Обществознание
Химия
Биология
История
О`zbek tili
Окружающий мир
Естествознание
География
Украинский язык
Информатика
Украинская литература
Казахский язык
Физкультура и спорт
Экономика
Музыка
Право
Белорусский язык
МХК
Кубановедение
ОБЖ
Психология
Кыргыз тили
Другие предметы
Показать все предметы
Рийаз
28.01.2022, 19:13
Информатика

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

А+ А ( в кд.) + А (в кубе) + . . . . + А ( в N)
Знаешь ответ?

Чтобы оставить ответ, или зарегистрируйтесь.

Ответ или решение 1
Fariza

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.