nhập n số . tính tổng các số vừa nhập đến khi gặp số 0 thì dừng

0 bình luận về “nhập n số . tính tổng các số vừa nhập đến khi gặp số 0 thì dừng”

1. ???????????????? ????????????;
   ???????????? ????,????,????: ????????????????????????????;
   ????????????????????
       ????????????????????????;
       ????:=0; ????:=1;
       ????????????????????????
           ????????????????????(‘???????????????? ????(???????????? ‘,????,’): ‘); ????????????????????????(????);
           ????:=????+????;
           ????:=????+1;
       ???????????????????? ????=0;
       ????????????????????????????(‘???????????????? ???????????? ???????? ???????????? ????????????????: ‘,????);
       ????????????????????????;

   chúc bn hok tốt

   Trả lời

2. program oken;
   uses crt;
   var n,i,s: longint;
   begin
       clrscr;
       s:=0; i:=1;
       repeat
           write(‘Nhap n(lan ‘,i,’): ‘); readln(n);
           s:=s+n;
           i:=i+1;
       until n=0;
       writeln(‘Tong cac so vua nhap: ‘,s);
       readln;
   end.

   Trả lời