Câu hỏi: Viết chương trình kiểm tra số nguyên a có chia hết cho 3 và 5 hay không? (Yêu cầu: Sử dụng chương trình con)

*Chia hết cho cả 3 và 5

uses crt;
var a:longint;
function chiahet(a:longint):boolean;
begin
    if a mod 3<>0 then exit(false);
    if a mod 5<>0 then exit(false);
    exit(true);
end;
begin
    clrscr;
    readln(a);
    if chiahet(a)=true then writeln(a,' chia het cho 3 va 5')
       else writeln(a,' khong chia het cho ca 3 va 5');
readln;
end.

====================================

*Chia hết cho 3 hoặc 5

uses crt;
var a:longint;
function chiahet3(a:longint):boolean;
begin
    if a mod 3<>0 then exit(false);
    exit(true);
end;
function chiahet5(a:longint):boolean;
begin
    if a mod 5<>0 then exit(false);
    exit(true);
end;
begin
    clrscr;
    readln(a);
    if chiahet3(a)=true then writeln(a,' chia het cho 3')
       else writeln(a,' khong chia het cho 3');
    if chiahet5(a)=true then writeln(a,' chia het cho 5')
       else writeln(a,' khong chia het cho 5');
readln;
end.