Viết chương trình tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó bằng 100 thì dừng lại
Ngày đăng:
16/10/2021
Trả lời:
0
Lượt xem:
277
Viết chương trình tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó bằng 100 thì dừng lại. Giải nhanh giúp em Program tinh_tong; Uses crt; Var S,n: integer; Begin clrscr; S:=0; n:=1; While(S<=100) do Begin S:=S+n; n:=n+1; End; Writeln( Tong la: ,S); Readln End. program ctdt; while tong<=100 do readln; |