Sử dụng câu lệnh while do viết chương trình tính tổng
B= 2+4+6+…..+2020
Sử dụng câu lệnh while do viết chương trình tính tổng B= 2+4+6+-.+2020
By Kaylee
By Kaylee
Sử dụng câu lệnh while do viết chương trình tính tổng
B= 2+4+6+…..+2020
program Tin_hoc;
uses crt;
var i,s:integer;
begin
clrscr;
i:=0;
s:=0;
while i<=200 do
begin
s:=s+i;
i:=i+2
end;
writeln(‘S=’,s);
readln;
end.
program chuong_trinh_tinh_tong_B=2+4+6+…..+2020;
uses crt;
var a,b:integer;
begin
clrscr;
a:=0;
b:=0;
while a<=200 do
begin
b:=b+a;
a:=a+2
end;
writeln(‘S=’,b);
readln;
end