Viết chương trình cho phép tính tổng của nhiều số (Chưa biết bao nhiêu số). Nhập số 0 để kết thúc quá trình nhập.

0 bình luận về “Viết chương trình cho phép tính tổng của nhiều số (Chưa biết bao nhiêu số). Nhập số 0 để kết thúc quá trình nhập.”

1. Program Tong_Repeat;
   uses crt;
   var i: byte;
    so, tong: real;
   begin
    write(‘NHAP CAC SO – NHAP 0 DE NGUNG ‘);
    readln;
    repeat
    clrscr;
    write(‘Nhap so thu ‘,i,’: ‘);
    readln(so); tong:=tong+so; i:=i+1;
    until so=0;
    write(‘Tong la: ‘,tong:6:1);
    readln
   end.

   CHÚC BN HC TỐT # NGUYỄN THANH BẢO KHA @ I LOVE YOU

   Bình luận

2. program tong_so;

   uses crt;

   var n,t:integer;

   begin

          clrscr;

          repeat

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

                 t:=t+n;

          until n=0;

          write(‘Tong cac so vua nhap la: ‘,t);

          readln;

   end.

   Bình luận