Sử dụng các lệnh lặp while …do để viết chương trình kiểm tra một số nguyên nhập từ bàn phím số đó là chẳn hay số lẻ

0 bình luận về “Sử dụng các lệnh lặp while …do để viết chương trình kiểm tra một số nguyên nhập từ bàn phím số đó là chẳn hay số lẻ”

1. program ct;

   uses crt;

   var n:integer;

   begin

   clrscr;

     write(‘nhap n:=’);readln(n);

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

   readln

   end.

   Bình luận

2. program ct;

   uses crt;

   var n:integer;

   begin clrscr;

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

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

                             else writeln(n,’ la so le);

   readln

   end.

   Học tốt!

   Bình luận