Viết chương trình A=1+2+3+…+9+10 bằng while…do 21/07/2021 Bởi Sadie Viết chương trình A=1+2+3+…+9+10 bằng while…do
uses crt; var i,a:longint; begin clrscr; i:=1;a:=0; while i<=10 do begin a:=a+i; i:=i+1; end; write(a); readln end. Bình luận
đây bạn
uses crt;
var i,a:longint;
begin
clrscr;
i:=1;a:=0;
while i<=10 do
begin
a:=a+i;
i:=i+1;
end;
write(a);
readln
end.