chuong trinh kiem tra co chia het cho 3 hay ko

program az;

uses Crt;

var n : integer;

begin

clrscr;

Write('Nhap so do : '); readln(n);

If (n mod 3 = 0) then Write('so do chia het cho 3') else Write('so do khong chia het cho 3');

readln

end.

Chuong trinh 2

program kkk;

uses Crt;

var a,b,c : integer;

begin

clrscr;

Write('Nhap 3 so '); readln(a,b,c);

If (a+b > c) and (b + c > a) and (c + a > b) then

begin

Writeln('La so do 3 canh cua tam giac');

If (a=b) or (b = c) or (c = a) then Writeln('La tam giac can) else Writeln(' Khong la tam giac can');

end;

else Writeln(' khong La 3 canh cua tam giac');

readln

end.

Điều kiện chia hết cho 3:

If a mod 3 = 0 then Write('YES')

Else Write('NO');

Điều kiện là tam giác:
If (a+b>c) and (b+c>a) and (a+c>b) then Write('YES')

Else Write('NO');

Điều kiện là tam giác cân:

If (a+b>c) and (b+c>a) and (a+c>b) then

     If (a=b) or (b=c) or (c=a) then Write('YES')

     Else Write('NO')

Else Write('Khong phai tam giac');