Как сделать, чтобы здесь понижался степень: чтобы при каждом цикле программы, x^n > x^n-1 > x^n-2 и тд var x,a,z,s: real; n,i: integer; begin writeln('введите a,x: '); readln(a,x); write('введите n: '); readln(n); s: =0; for i: =1 to n do begin z: =(exp(ln(a)*i)*exp(ln(x)* вот здесь -> n)); s: =s+z; end; readln; writeln('ответ: ',s: 2: 2); end.

Вот на Python(могут быть ошибки)

Объяснение:

while True:#Бесконечный цикл(для того чтобы программа не закрылась)

   money = int(input("Введите сумму(0-для выхода): "))#Принимаем от пользователя кол-во денег

   if money == 0:#Если 0

       break#То выходим

   a = money * 3#Создаем переменную с х3 деньгами(нужно для условия)

   years = 0#Создаем переменную с годами

   while money <= a:#"Пока деньги меньше денегх3" цикл будет повторяться

       money = money + (money *(3/100))#Увеличиваем кол-во денег на 3%

       years += 1#Увеличиваем кол-во лет

   print("Итоговая сумма:",round(money, 2), "|| Сколько понадобится лет: ", years)#Когда цикл завершится выведется Сумма и кол-во лет

double a, a1;

           ConsoleKeyInfo keyInfo;

           do

           {

               Console.Write("Введите число: ");

               a = Convert.ToDouble(Console.ReadLine());

               a1 = Math.Pow(a, 2);

               Console.WriteLine("Квадрат числа "+ a + " = " + a1);

               a1 = Math.Pow(a, 3);

               Console.WriteLine("Куб числа " + a + " = " + a1 + "\n");

               Console.WriteLine("Если хотите повторить программу нажмите F");

               Console.WriteLine("Если хотите завершить программу нажмите любую другую кнопку\n");

               keyInfo = Console.ReadKey(true);

           }

           while (keyInfo.Key == ConsoleKey.F);