help me, mai mị kiểm tra òi Nhập a, cho biết a là số âm hay số dương? Nhập a, cho biết a là số chẵn hay lẽ? Nhập a, cho biết a là số có chia hết cho 3

0 bình luận về “help me, mai mị kiểm tra òi Nhập a, cho biết a là số âm hay số dương? Nhập a, cho biết a là số chẵn hay lẽ? Nhập a, cho biết a là số có chia hết cho 3”

1. 4 câu đầu:

   Program TTT;
   Uses crt;
   Var a,b,c: longint;
   Begin
           Clrscr;
           Write(‘Nhap a: ‘); Readln(a);
           If a>=0 then Write(a,’ la so duong’)
           Else Write(a,’ la so am’);

           Writeln;

           If a mod 2 = 0 then Write(a,’ la so chan’)
           Else Write(a,’ la so le’);

           Writeln;

           If (a mod 3=0) and (a mod 7=0) then Write(a,’ chia het cho 3 va 7′)
           Else Write(a,’ khong chia het cho 3 va 7′);

           Writeln;

           Write(‘Nhap b: ‘); Readln(b);
           c:=a;
           a:=b;
           b:=c;

           Write(a,’   ‘,b);
           Readln
   End.

    

   Câu cuối:

   Uses crt;
   Var a,b,c: longint;
   Begin
           Clrscr;
           Write(‘Nhap a, b va c: ‘); Readln(a,b,c);
           If (a>b) and (a>c) then Write(a,’ lon nhat’);
           If (b>a) and (b>c) then Write(b,’ lon nhat’);
           If (c>a) and (c>b) then Write(c,’ lon nhat’);
           Readln
   End.

   Bình luận