Viết thuật toán tính tổng các số tự nhiên từ 1 -> 100. Các cao nhân giúp em với!!! 03/08/2021 Bởi Delilah Viết thuật toán tính tổng các số tự nhiên từ 1 -> 100. Các cao nhân giúp em với!!!
B1: Khởi tạo i $\leftarrow$ 0; s $\leftarrow$ 0; B2: i $\leftarrow$ i+1; s $\leftarrow$ s+i; B3: Nếu i>100 thì thông báo giá trị s rồi kết thúc; B4: Quay lại B2. CHÚC BẠN HỌC TỐT!!! Bình luận
*Thuật toán: B1: s ← 0B2: i ← 1 to 100 s ← s+iB3: Cho kết quả và kết thúc thuật toán *Chương trình: Uses crt;Var s, i: integer;BeginClrscr;s:=0;For i:=1 to 100 do s:=s+i;Writeln(‘Tong 100 so TN dau tien la: ‘,s);readlnend. Bình luận
B1: Khởi tạo i $\leftarrow$ 0; s $\leftarrow$ 0;
B2: i $\leftarrow$ i+1; s $\leftarrow$ s+i;
B3: Nếu i>100 thì thông báo giá trị s rồi kết thúc;
B4: Quay lại B2.
CHÚC BẠN HỌC TỐT!!!
*Thuật toán:
B1: s ← 0
B2: i ← 1 to 100
s ← s+i
B3: Cho kết quả và kết thúc thuật toán
*Chương trình:
Uses crt;
Var s, i: integer;
Begin
Clrscr;
s:=0;
For i:=1 to 100 do s:=s+i;
Writeln(‘Tong 100 so TN dau tien la: ‘,s);
readln
end.