Дано вещественное число A и целое число N (> 0). Используя один цикл, найти сумму: 1 + A + A2 + A3 + .+ AN. (1+а+(а в степени 2 )+(а в с

20.02.2013, 21:18. **Показов** 12288. **Ответов** 2

Студворк — интернет-сервис помощи студентам

Дано вещественное число A и целое число N (> 0). Используя один цикл, найти сумму:
1 + A + A² + А³ + ...+ A^N.

(1+а+(а в степени 2 )+(а в степени 3 )+...+(а в степени n ))

@igoruli · 20.02.2013, 21:42

Pascal

program re;
uses crt;
var
n,i:integer;a,k:real;
begin
writeln(Vvedite A);
readln(a);
writeln(Vvedite N);
readln(n);
k:=1;
for i:=1 to n do
k:=k+exp(i*ln(a));
 
writeln(k);
end.

@TakeOver · 20.02.2013, 22:00

Pascal

var
  a,sum,b:extended;
  n,i:longint;
 
begin
write('A='); readln(a);
write('N=');readln(n);
sum:=1;b:=a;
for i:=2 to n do
  begin
    sum:=sum+b;
    b:=a*b;
  end;
writeln(sum:0:10);
end.

Арсений о3о
		1
	Дано вещественное число A и целое число N (> 0). Используя один цикл, найти сумму: 1 + A + A2 + A3 + .+ AN. (1+а+(а в степени 2 )+(а в с 20.02.2013, 21:18. Показов 12288. Ответов 2 Метки нет (Все метки) Дано вещественное число A и целое число N (> 0). Используя один цикл, найти сумму: 1 + A + A² + А³ + ...+ A^N. (1+а+(а в степени 2 )+(а в степени 3 )+...+(а в степени n ))

	20.02.2013, 22:00

Опции темы

Дано вещественное число A и целое число N (> 0). Используя один цикл, найти сумму: 1 + A + A2 + A3 + .+ AN. (1+а+(а в степени 2 )+(а в с

Решение