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

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ẽ. làm trong phần mềm pascal 7.0 giúp mk vs”

1. 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

2. 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.

   Bình luận