Viết chương trình nhập vào từ bàn phím 2 số nguyên dương M N . Tính và đưa ra màn hình số lượng các số chẵn lẻ

0 bình luận về “Viết chương trình nhập vào từ bàn phím 2 số nguyên dương M N . Tính và đưa ra màn hình số lượng các số chẵn lẻ”

1. Program Hotboy; 

   Uses crt; 

   Var M,N ,chan,le: word; 

   Begin

   Clrscr; 

   Writeln(‘nhap tu ban phim so N’); Readln(N);

   Writeln(‘nhap tu ban phim so M’); readln(M);

   For i:= N to M do 

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

   Writeln(chan,la so chan’) ;

   writeln(le,la so le);

   Readln

   End.

   Bình luận

2. var m,n,c,l:longint;

   begin

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

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

   for i:=m to n do

   if i mod 2= 0 then inc(c) else inc(l);

   writeln(‘So chan la: ‘,c);

   write(‘So le la: ‘,l);

   readln

   end.

   Bình luận