Question

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

Answer 1

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.