Viết chương trình sử dụng lệnh for-do hoặc while…do S= 1+2+3+4+…+2019 16/07/2021 Bởi Maria Viết chương trình sử dụng lệnh for….do hoặc while…do S= 1+2+3+4+…+2019
var i,S : integer; begin S:=0; for i:=1 to 2019 do S:=S+i; readln end. var i,S : integer; begin S:=0; i:=1; while i<=2019 do begin S:=S+i; i:=i+1; end; readln end. Bình luận
ảnh nha
var i,S : integer;
begin
S:=0;
for i:=1 to 2019 do S:=S+i;
readln
end.
var i,S : integer;
begin
S:=0;
i:=1;
while i<=2019 do
begin
S:=S+i;
i:=i+1;
end;
readln
end.