viết chương trình số a chia hết cho 3 có sử dụng câu lệnh điều kiện

0 bình luận về “viết chương trình số a chia hết cho 3 có sử dụng câu lệnh điều kiện”

1. program az;

   uses Crt;

   var a : real;

   begin

   clrscr;

   Write(‘nhap so a : ‘); readln(a);

   If (a mod 3 = 0) then Write(a,’chia het cho 3′) else Write(a,’ khong chia het cho 3′);

   readln

   end.

   Bình luận