mọi người giúp em với!
Viết chương trình nhập n và tính tổng S(n) = x + x^2 + x^3 + … + x^n trong pascal
mọi người giúp em với! Viết chương trình nhập n và tính tổng S(n) = x + x^2 + x^3 + … + x^n trong pascal
By Maria
By Maria
mọi người giúp em với!
Viết chương trình nhập n và tính tổng S(n) = x + x^2 + x^3 + … + x^n trong pascal
uses crt;
var n,i:integer;
s:extended;
function somu(x,n:integer):extended;
var tam:integer;
begin
somu:=1;
for tam:=1 to n do
somu:=somu*x;
end;
BEGIN
clrscr;
write(‘Nhap n:’); readln(n);
s:=0;
for i:=1 to n do
s:=s+somu(n,i);
write(‘TONG LA:’,S:0:0);
readln
END.
uses crt;
var n,i,s,x,t,d: longint;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
write (‘nhap x: ‘); readln (x);
for i:=1 to n do
begin
repeat
x:=x*x;
d:=d+1;
until d=i;
s:=s+x;
end;
writeln (‘tong la: ‘,s);
readln;
end.