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. program kaito;
   uses crt;
   var x: integer;
   begin
      clrscr;
      write(‘Nhap x: ‘); readln(x);
      if (x mod 2 =0) and (x mod 3 = 0) then begin
         writeln(x,’ chia het cho 2 va 3′);
      end;
      readln
   end.

   CHÚC BẠN HỌC TỐT!!!

   Bình luận

2. 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’) else

   writeln(‘Khong chia het cho 2 va 3’);

   readln

   end.

   Bình luận