uses crt;
var a,s,i:integer;
begin
clrscr;
a:=20;
s:=0;
for i:=1 to 5 do
begin
s:=s+a;
a:=a+2;
end;
writeln(s);
readln;
end.
uses crt;
var a,s,i:integer;
begin
clrscr;
a:=20;
s:=0;
for i:=1 to 5 do
begin
s:=s+a;
a:=a+2;
end;
writeln(s);
readln;
end.
viết chương trình tính tổng S={1+2+3+...+200}
Viết chương trình tính tổng sau S=1-2+3-4.....-n
Câu 22 Sử dụng vòng lặp While … do…Để viết chương trình tính tổng các số tự nhiên đầu tiên sao cho tổng đó nhỏ nhất và lớn hơn 500.
1/ viết chương trình tính tổng bình phương s= 1² +2²+3²+... + n² với n là số nguyên dương được nhập từ bàn phím 2/ viết chương trình tính tổng của n số lẻ đầu tiên với n là số nguyên dương được nhập từ bàn phím
Dùng câu lệnh lặp For... to... do để viết chương trình tính tổng s: 1+5+10+15+...+n
Viết chương trình pascal tính tổng S=1+ 2+ 3 +... +n?
a,Bằng lệnh for...do
b,Bằng lệnh while...do
viết chương trình tính tổng các bình phương của n số tự nhiên S=1^2+2^2+...n^2
Mô tả thuật toán và viết chương trình tính tổng: S= 2/3+4/5+6/7+...+ 2n/2n+1
