Tin 8 nhaee :>>> Bài 1: Viết chương trình đếm số chia hết cho 3 trong 100 số tự nhiên đầu tiên. Bài 2: Tính trung bình cộng của n số tự nhiên đầu tiên

0 bình luận về “Tin 8 nhaee :>>> Bài 1: Viết chương trình đếm số chia hết cho 3 trong 100 số tự nhiên đầu tiên. Bài 2: Tính trung bình cộng của n số tự nhiên đầu tiên”

1. Bài 1:

   Program BTT;
   Uses crt;
   Var i,d: longint;
   Begin
           Clrscr;
           d:=0;
           For i:=3 to 99 do
                   If i mod 3 = 0 then inc(d);
           Write(‘Co ‘,d,’ so chia het cho 3 trong 100 so tu nhien dau tien’);
           Readln
   End.

   Bài 2:

   Program BTT;
   Uses crt;
   Var n,i,s: longint; tbc: real;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=0;
           For i:=1 to n do
                   s:=s+i;
           tbc:=s/n;
           Write(‘Trung binh cong cua ‘,n,’ so tu nhien dau tien la: ‘,tbc:0:2);
           Readln
   End.

   Bài 3:

   Program BTT;
   Uses crt;
   Var n,i,dc,dl,tc,tl: longint;
       tbcc,tbcl: real;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           dc:=0; dl:=0; tc:=0; tl:=0;
           For i:=1 to n do
           Begin
                   If i mod 2 = 0 then
                   Begin
                           tc:=tc+i;
                           inc(dc);
                   End
                   Else
                   Begin
                           tl:=tl+i;
                           inc(dl);
                   End;
           End;

           tbcc:=tc/dc;
           tbcl:=tl/dl;

           Writeln(‘TBC cac so chan: ‘,tbcc:0:2);
           Write(‘TBC cac so le: ‘,tbcl:0:2);
           Readln
   End.

   Bình luận