Nhập 1 số nguyên tự nhiên từ bàn phím rồi set xem số đó chặn hay lẽ. pascal 7.0

0 bình luận về “Nhập 1 số nguyên tự nhiên từ bàn phím rồi set xem số đó chặn hay lẽ. pascal 7.0”

1. uses crt;
   var x:longint;
   begin
   clrscr;
       write(‘x=’);readln(x);
       if x mod 2=0 then write(x,’ la so chan.’) else write(x,’ la so le.’);
   readln
   end.

   ////////////////////////////////////

   Test:

   

   Bình luận

2. program Chan-le;
   uses crt;
   var x: integer;
   begin
     clrscr;
     write(‘Nhap x: ‘); readln(x);
     if x mod 2 = 0 then
       writeln(‘x la so chan’)
     else
       writeln(‘x la so le’);
     readln;
   end.

   Bình luận