Xem 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 2024
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;
uses crt;
var i,tong:integer;
(*———————–*)
begin
clrscr;
tong:=0;i:=0;
while tong<=100 do
begin
i:=i+1;
tong:=tong+i;
end;
readln;
end.
Bạn đang tìm hiểu bài viết: 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 2024
HỆ THỐNG CỬA HÀNG TRÙM SỈ QUẢNG CHÂU
Điện thoại: 092.484.9483
Zalo: 092.484.9483
Facebook: https://facebook.com/giatlathuhuongcom/
Website: Trumsiquangchau.com
Địa chỉ: Ngõ 346 Nam Dư, Trần Phú, Hoàng Mai, Hà Nội.
