viết chương trình kiểm tra xem từ 1 đến n có bao nhiêu số chẵn, bao nhiêu số lẻ với n là số nguyên nhập từ bàn phím

0 bình luận về “viết chương trình kiểm tra xem từ 1 đến n có bao nhiêu số chẵn, bao nhiêu số lẻ với n là số nguyên nhập từ bàn phím”

1. Program kiemtra;

   Uses crt ;

   var chan,le,n,i:integer; 

   begin

       Clrscr;

   Chan:=0; le:=0;

        writeln(‘Nhap so nguyen n :’); readln(n); 

        for i:=1 to n do 

           If i mod 2 =0 then chan:= chan+ 1 else le:= le+1;

   Writeln(‘ co so so chan la = ‘,chan);

   Writeln(‘ co so so le la = ‘,le);

   Readln

   end.

   Mình đã chạy được chương trình rồi á,dưới ảnh nha 

   

   Bình luận

2. Program BTT;
   Uses crt;
   Var n,i,dc,dl: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           dc:=0; dl:=0;

           For i:=1 to n do
           Begin
                   If i mod 2 = 0 then inc(dc);
                   If i mod 2 = 1 then inc(dl);
           End;

           Writeln(‘Co ‘,dl,’ so le’);
           Write(‘Co ‘,dc,’ so chan’);
           Readln
   End.

   Bình luận