viết chương trình pascal nhập vào đầy đủ n số tự nhiên ( n được nhập từ bàn phím) sử dụng lệnh lặp chưa biết trước số lần lặp để tính tổng các số đó v

0 bình luận về “viết chương trình pascal nhập vào đầy đủ n số tự nhiên ( n được nhập từ bàn phím) sử dụng lệnh lặp chưa biết trước số lần lặp để tính tổng các số đó v”

1. program tinhtong;

   uses crt;

   var i, n, s: integer;

   begin clrscr;

   Write(‘N so tu nhien dau tien la: ‘);

   readln(n);

   s:=0;

   i:=1;

   while i<=n do begin

   s:=s+i;

   i:=i+1;

   end;

   writeln(‘Tong cac so la: ‘,s);

   readln

   end.

    

   Bình luận

2. program Tinh_tong;
   uses crt;
   var i, n, S,TB: integer;
   begin

            clrscr;
            Write(‘Hay nhap n la: ‘);
            readln(n);
            S:=0;
            i:=0;

            while i<=n do

   begin
            s:=s+i;
            i:=i+1;
            TB:= s/i
   end;
           writeln(‘Tong cac so la: ‘,s);
           writeln(‘TB cac so la :’,TB):

           readln
   end.

   Bình luận