Sử dụng câu lệnh lặp for… do tính tổng 100 số tự nhiên đầu tiên 21/08/2021 Bởi Camila Sử dụng câu lệnh lặp for… do tính tổng 100 số tự nhiên đầu tiên
uses crt; var i,S:integer; begin clrscr; S:=0; for i:=1 to 100 do S:=S+i; write(S); readln end. Bình luận
đây mja
uses crt;
var i,S:integer;
begin
clrscr;
S:=0;
for i:=1 to 100 do S:=S+i;
write(S);
readln
end.