Viết chương trình Nhập số nguyên N Tính trung bình cộng các số từ 1 đến N và xuất kết quả ra màn hình

0 bình luận về “Viết chương trình Nhập số nguyên N Tính trung bình cộng các số từ 1 đến N và xuất kết quả ra màn hình”

1. uses crt;
   var f:text; i,s,n:longint;
   begin
   clrscr;
      write(‘Nhap n: ‘);readln(n);
      for i:=1 to n do s:=s+i; 
      writeln(‘Trung binh cong: ‘,s / n:0:2);
   readln
   end.

   Bình luận

2. uses crt;
   var n,i,s:longint;
   begin
   clrscr;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do inc(s,i);
      writeln(‘TBC: ‘,s/n:0:2);
   readln
   end.

   Bình luận