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
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)
uses crt;
var s:real;
n:byte;
BEGIN
clrscr;
write(‘Nhap N:’); readln(n);
s:=1;
while n>1 do
begin
s:=s*n;
dec(n);
end;
write(s:0:0);
readln
END.
b)
uses crt;
var s:real;
n:qword;
BEGIN
clrscr;
write(‘Nhap N:’); readln(n);
n:=n*2; s:=0;
while n>0 do
begin
s:=s+n;
dec(n,2);
end;
write(s:0:0);
readln
END.
c)
uses crt;
var s:real;
n:qword;
BEGIN
clrscr;
write(‘Nhap N:’); readln(n);
n:=n*2+1; s:=1;
while n>1 do
begin
s:=s+n;
dec(n,2);
end;
write(s:0:0);
readln
END.
Chúc bạn học tốt!