Cho thuật toán như sau:Kí hiệu S là tổng cần tìmBước 1: S ¬ 0, n ¬ 0.Bước 2: Nếu S≤1000, thì: n ¬ n+1; S ¬ S + n và quay lại bước 2.Ngược lại, chuyển tới bước Bước 3: In kết quả: n là số tự nhiên để tổng S nhỏ nhất sao cho S>1000. Kết thúc thuật toán.? Em hãy dùng câu lệnh lặp While … do để viết chương trình thể hiện thuật toán trênMình đang cần...
Đọc tiếp
Cho thuật toán như sau:
Kí hiệu S là tổng cần tìm
Bước 1: S ¬ 0, n ¬ 0.
Bước 2: Nếu S≤1000, thì: n ¬ n+1; S ¬ S + n và quay lại bước 2.
Ngược lại, chuyển tới bước
Bước 3: In kết quả: n là số tự nhiên để tổng S nhỏ nhất sao cho S>1000. Kết thúc thuật toán.
? Em hãy dùng câu lệnh lặp While … do để viết chương trình thể hiện thuật toán trên
Mình đang cần gấp
Var n,s:integer;
Begin
n:=0;
s:=0;
While s<=1000 do
Begin
n:=n+1;
s:=s+n;
End;
Write('Tong la ',s);
Readln
End.