Viết chương trình tính tổng các số tự nhiên liên tiếp nhỏ nhất lớn hơn 10? 17/07/2021 Bởi Emery Viết chương trình tính tổng các số tự nhiên liên tiếp nhỏ nhất lớn hơn 10?
Var s,a, : integer; begin a:=0; s:=0; While s<=10 do Begin a:=a+1; s:=s+a; End; write(‘Vay tong cua chung=’,s); Readln End.Nhớ tick cho mình nhé! Thanks so much :33 Bình luận
Var s,a, : integer;
begin
a:=0; s:=0;
While s<=10 do
Begin
a:=a+1;
s:=s+a;
End;
write(‘Vay tong cua chung=’,s);
Readln
End.
Nhớ tick cho mình nhé! Thanks so much :33