viết phương trình nhập vào số tự nhiên từ bàn phím . kiểm tra và in ra màn hình số đó là chẵn hay lẻ ( mk đang thi dúp với)

0 bình luận về “viết phương trình nhập vào số tự nhiên từ bàn phím . kiểm tra và in ra màn hình số đó là chẵn hay lẻ ( mk đang thi dúp với)”

1. program ct;

   uses crt;

   var n:integer;

   begin

   clrscr;

   write(‘nhap so tu nhien:=’);readln(n);

     if n mod 2=0 then writeln(n,’la so chan’);

     if n mod 2=1 then writeln(n,’ la so le’);

   readln

   end.

   Bình luận

2. var a:integer;

   begin

   clrscr; writeln(‘nhap a’); readln(a); if a mod 2=0 then writeln(‘a la so chan’) else writeln(‘ a la so le’); readln;

   end.

   Bình luận