Viết chương trình tính tổng
a) S=1*2+2*3+3*4+….N*(N+1)
b) S=2+4+6+…+2*N
c) S=1+3+5+…+(2*N+1)
Với N nhập từ bàn phím
Sử dụng While…Do
Viết chương trình tính tổng a) S=1*2+2*3+3*4+-N*(N+1) b) S=2+4+6+…+2*N c) S=1+3+5+…+(2*N+1) Với N nhập từ bàn phím Sử dụng While…Do
By Madeline
a,
var n, i: integer; S: real;
begin
read(n);
while i <= n do
begin
S:=S+i*(i+1);
i:=i+1;
end;
write(S);
end.
b,
var n,i: integer; S: real;
begin
read(n);
while i <= n do
begin
S:=S+2*i;
i:=i+1;
end;
write(S);
end.
c,
var n,i: integer; S: real;
begin
read(n);
while i <=n do
begin
S:=S+(2*i+1);
i:=i+1;
end;
write(S);
end.
a,
program Tinh_tong;
uses crt;
var n, i: integer;
S: real;
begin
clrscr;
read(n);
while i <= n do
begin
S:=S+i*(i+1);
i:=i+1;
end;
write(S);
readln
end.
b,
program Tinh_tong;
uses crt;
var n,i: integer;
S: real;
begin
clrscr;
read(n);
while i <= n do
begin
S:=S+2*i;
i:=i+1;
end;
write(S);
readln
end.
c,
program Tinh_tong;
uses crt;
var n,i: integer;
S: real;
begin
clrscr;
read(n);
while i <=n do
begin
S:=S+(2*i+1);
i:=i+1;
end;
write(S);
redln
end.