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

@Stalker77 · Регистрация: 07.10.2010

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

Дано вещественное число A и целое число N (> 0). Используя один цикл, найти сумму 1 + A + A^2 + A^3 + ... + A^N. (использовать цикл с параметром)
Помогите плз решить

@jonni · 29.11.2010, 14:09

Pascal

uses crt;
var
A,s:real;
i:byte;
n : integer;
begin
ClrScr;
s:=0;
Writeln('Ââåäèòå n');
readln(n);
Writeln('Ââåäèòå A');
readln(A);
for i:=0 to n do
s:=s+exp(ln(A) * n);
Writeln('Çíà÷åíèå ðàâíî ',s);
readln;
end.

@ChameleoN · 30.11.2010, 16:47

Pascal

var
a : real;
n,i : integer;
d,s, : real;
 
begin
a :=5;
n :=4;
d :=1;
s :=a;
for i := 1 to n do
begin
d :=d+s;
s := s*a;
end;

@Stalker77 0 / 0 / 0 Регистрация: 07.10.2010 Сообщений: 20
		1
	Дано вещественное число A и целое число N (> 0). Используя один цикл, найти сумму 1 + A + A^2 + A^3 + ... + A^N. 29.11.2010, 13:21. Показов 5009. Ответов 2 Метки нет (Все метки) Дано вещественное число A и целое число N (> 0). Используя один цикл, найти сумму 1 + A + A^2 + A^3 + ... + A^N. (использовать цикл с параметром) Помогите плз решить 0

	30.11.2010, 16:47

Опции темы

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

Решение