viết chương trình nhập vào 1 số nguyên n (n>0). tính trung bình cộng các số nguyên lẻ từ 1 đến n

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

1. program trung_binh_le;

   uses crt;

   var n,i,d,t:integer;

   begin

           clrscr;

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

           t:=0;   d:=0

           for i:=1 to n do

                   if i mod 2=1 then 

                           begin

                                   t:=t+i;

                                   d:=d+1;

                           end;

           write(‘Trung binh cong cac so le tu 1 den ‘,n,’ la: ‘,t/d:2:2);

           readln;

   end.

   Bình luận

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

   Bình luận