viết chương trình nhập số nguyên dương x từ bàn phím in ra màn hình kết quả có chia hết cho 2,3 không?

0 bình luận về “viết chương trình nhập số nguyên dương x từ bàn phím in ra màn hình kết quả có chia hết cho 2,3 không?”

1. uses crt;

   var x:integer;

   begin

   clrscr;

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

   if (x mod 2=0) and (x mod 3=0) then writeln(‘So nay chia het cho ca 2,3’) else

   if x mod 2=0 then writeln(‘So nay chia het cho 2’) else

   if x mod 3=0 then writeln(‘So nay chia het cho 3’);

   readln

   end.

   Bình luận