dùng lệnh while… do… nhập các số từ bàn phím dừng lại khi nhập số 0 . in ra tổng các số

0 bình luận về “dùng lệnh while… do… nhập các số từ bàn phím dừng lại khi nhập số 0 . in ra tổng các số”

1. B1: S<-0,n<-0.

   B2: Nếu S_< 1000 thì chuyển tới bước 3; Ngược lại (S>1000)chuyển tới bước 4.

   B3: n<-n+1; S<-S+n;và quay lại bước 2

   B4: In kết quả: S và n là số tự nhiên nhỏ nhất sao cho S>1000.

         Kết thúc thuật toán.

   while <điều kiện>do <câu lệnh>;

   Bình luận

2. program dung_khi_0;

   uses crt;

   var n:integer;

   begin

          clrscr;

          repeat

                 write(‘Nhap so: ‘);  readln(n);

          until n=0;

          readln;

   end.

   Bình luận