1. Viết chương trình nhập vào 1 số nguyên , xét xem số đó có chia hết cho 5 hay không? 2. Viết chương trình nhập vàp 1 số nguyên xem số đó có chia hết cho 3 hay không?

Câu 1:

program cau1;
uses crt;
var n : integer;
begin
clrscr;
write('Nhap n = '); readln(n);
if(n mod 5 = 0) then write ('so ',n,' co chia het cho 5 ')
else
write ('so ',n,' khong chia het cho 5 ');
readln;
end.

Câu 2:

program cau2;
uses crt;
var n : integer;
begin
clrscr;
write('Nhap n = '); readln(n);
if(n mod 3 = 0) then write ('so ',n,' co chia het cho 3 ')
else
write ('so ',n,' khong chia het cho 3 ');
readln;
end.

#mình gửi đáp án nhá . Nhớ vote mình 5 sao và tym nhá