viết chương trình pascal tính trung bình cộng các số lẻ từ 1 đến N (N là số nguyên nhập từ bàn phím)

0 bình luận về “viết chương trình pascal tính trung bình cộng các số lẻ từ 1 đến N (N là số nguyên nhập từ bàn phím)”

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

   Bình luận