giúp vs ạ Đề bài: nhập vào máy, kiểm tra 1 số có chia hết cho 5 k? kiểm tra số nhập vào có chia hết cho 2 và 5 k gợi ý:dùng phép chia có dư là mod

`* Pascal:`

`" "`

program chia_het;

uses crt;

var X : integer;

begin

    clrscr;

    write('Nhap 1 so: ');

    readln(X);

    if X mod 5 = 0 then 

        write('So do chia het cho 5');

    if (X mod 2 = 0) and (X mod 5 = 0) then

        write('So do chia het cho 2 va 5');

    readln

end.

Gửi bạn:

uses crt;

var a: Integer;

begin

clrscr;

writeln('Nhap mot so nguyen bat ki'); readln(a);

if a mod 5=0 then writeln('So do chia het cho 5')

else writeln('So do khong chia het cho 5');

if a mod 2=0 then writeln('So do chia het cho 2')

else writeln('So do khong chia het cho');

readln

end.