giúp mình với, đang cần gấp
3a. Hãy mô tả thuât toán để tính tổng A sau đây (n là số tự nhiên được nhập vào từ bàn phím):
A=1/1.3+1/2.4+1/3.5+………+1/n(n+2)
b. Viết chương trình Pascal tính tổng A.
giúp mình với, đang cần gấp
3a. Hãy mô tả thuât toán để tính tổng A sau đây (n là số tự nhiên được nhập vào từ bàn phím):
A=1/1.3+1/2.4+1/3.5+………+1/n(n+2)
b. Viết chương trình Pascal tính tổng A.
mình làm while do nhé, cái kia để mình tìm hiểu thêm
var S:real;
i,n:longint;
begin
writeln(‘n=’) ; readln(n);
S:=0;
i:=1;
while (i<=n) do
begins=
S:= 9S+1/i;
i:=i+1;
end;
writeln (‘S=’);
2) var i,n,s:integer;
begin
readln(n); s:=0;
for i:=1 to n do s:=s+i;
writeln(s);
readln;
end.
3) var i,n:integer; s:real;
begin
readln(n); s:=0;
for i:=1 to 200 do s:=s+i;
writeln(s);
readln;
end.
4) Var i,n:integer; s:real;
begin
readln(n); s:=1;
for i:=1 to 30 do s:=s+i;
writeln(s);
end.
6) var i,n,x,k:integer; s:real;
begin
readln(n); s:=0;
for i:=1 to n do
for x:=1 to n do
s:=x*i;
writeln(s);
end.
5) Var i,n:integer; s:longint;
begin
readln(n); s:=1;
for i:=1 to n do s:=s*i;
writeln(s);
end.