viết chương trình đếm các số chẵn từ m->n

0 bình luận về “viết chương trình đếm các số chẵn từ m->n”

1. $Program$ $dem$_$so$_$chan;$

   $uses$ $crt;$ 

   $Var$ $M,N,i,dem:word;$ 

   $Begin$ 

   $clrscr;$

   $Writeln (‘Nhap$ $so$ $M$ $nho$ $hon$ $N’);$

   $Readln (M,N);$

   $Dem:=0;$

   $FOR$ $i:=M$ $TO$ $N$ $DO$ 

   $IF$ $i$ $mod$ $2=0$ $THEN$ $dem=dem+1;$

   $Writeln(‘So$ $nguyen$ $trong$ $pham$ $vi$ $M,N’,dem);$

   $Readln$

   $End.$

   BẠN THAM KHẢO NHA!!!

   Bình luận

2. Uses crt;

   Var m, n, i, dc: integer;

   Begin

   Clrscr;

   Write(‘Nhap m = ‘); readln(m);

   Write(‘Nhap n = ‘); readln(n);

   dc:=0;

   For i:=m to n do if i mod 2 = 0 then inc(dc);

   Writeln(‘Co ‘,dc,’ so chan’);

   Readln

   End.

   Bình luận