1.nhập vào từ bàn phím số a.Hãy viết chương trình kiểm tra xem a có chia hết cho 3 ko? In kết quả ra màn hình 2.viết chương trình nhập vào từ bàn phím

0 bình luận về “1.nhập vào từ bàn phím số a.Hãy viết chương trình kiểm tra xem a có chia hết cho 3 ko? In kết quả ra màn hình 2.viết chương trình nhập vào từ bàn phím”

1. Bài 1:

   Program BTT;
   Uses crt;
   Var a: longint;
   Begin
           Clrscr;
           Write(‘Nhap 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ài 2:

   Program BTT;
   Uses crt;
   Var a: longint;

   Function ngto(a: longint): boolean;
   Var i: longint;
   Begin
           If a<2 then exit(false);
           For i:=2 to a div 2 do
                   If a mod i = 0 then exit(false);
                                       exit(true);
   End;

   Begin
           Clrscr;
           Write(‘Nhap a: ‘); Readln(a);
           If ngto(a) then Write(a,’ la so nguyen to’)
           Else Write(a,’ khong phai so nguyen to’);
           Readln
   End.

   Bình luận