Как сделать, чтобы здесь понижался степень: чтобы при каждом цикле программы, 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.
253
461
Ответы на вопрос:
Var a,s: integer; begin s: =0; for a: = 1 to 9 do s: =s+a; write('s = ',s); end. var a,s: integer; begin s: =0; for a: = 20 to 45 do s: =s+a; write('s = ',s); end.
Популярно: Информатика
-
hhhhh12218.06.2023 18:12
-
pollyshtal3333333309.09.2021 01:34
-
koptevartem05027.11.2021 00:26
-
TheWalkingDeadTWD21.02.2020 01:20
-
крымнаш31.03.2023 18:33
-
neush20.11.2022 04:52
-
лёша2002z24.08.2020 05:07
-
Lexa68RUS10.11.2022 18:15
-
3546528.04.2022 15:25
-
sakinaxalilova210.03.2020 07:42