viết chương trình pascal tính trung bình cộng các số chẵn 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ố chẵn 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: ‘); readln(n);
      for i:=1 to n do 
         if i mod 2=0 then 
            begin
               inc(s,i);
               inc(d);
            end;
         writeln(‘Trung binh cong: ‘,s/d:0:2);
   readln
   end.

   Bình luận

2. Program NN;
   Uses crt;
   Var n,i,s,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=0; d:=0;
           For i:=1 to n do
                   If i mod 2 = 0 then
                   Begin
                           inc(d);
                           s:=s+i;
                   End;
           Write(s/d:0:2);
           Readln
   End.

   Bình luận