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!!!
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!!!
By Delilah
By 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!!!
*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.