Viết chương trình hộ mk với đề bài sau : Nhập vào 1 số a , nhập đến khi a=0 thì dừng lại . Tính tổng các số vừa nhập .

0 bình luận về “Viết chương trình hộ mk với đề bài sau : Nhập vào 1 số a , nhập đến khi a=0 thì dừng lại . Tính tổng các số vừa nhập .”

1. Uses crt;
   Var a,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap a: ‘); Readln(a);
           s:=0;
           While a <> 0 do
           Begin
                   s:=s+a;
                   Write(‘a > 0, tiep tuc nhap: ‘); Readln(a);
           End;
           Write(‘Tong cac so vua nhap la: ‘,s);
           Readln
   End.

   Bình luận

2. program oken;

   uses crt;

   var a,i,tong:longint;

   begin

   clrscr;

   i:=1; tong:=0;

   write(‘a(‘,i,’): ‘); readln(a);

   while a>0 do

     begin

       tong:=tong+a;

       inc(i);

       write(‘a(‘,i,’): ‘); readln(a);

    end;

   writeln(‘tong=’,tong);

   readln;

   end.

   Bình luận