**Thuật toán:

Bước 1: Nhập 2 số nguyên m và n

Bước 2: Nếu m mod n= 0 thì in ra màn hình "m chia hết cho n"; ngược lại in ra màn hình "m không chia hết cho n"

Bước 3: Kết thúc

**Chương trình:

Program baitap;

Uses crt;

Var m,n:integer;

Begin

Clrscr;

Write('m='); Readln(m);

Write('n='); Readln(n);

If m mod n=0 then writeln('m chia het cho n')

                       Else writeln('m khong chia het cho n');

Readln

End.

Mô tả:

input:nhập m và n 

output:m chia hết hoặc ko chia hết n 

chương trình(code) 

m = int(input("nhap so m:"))
n = int(input("nhap so n:"))
if(m % n == 0):
    print("m chia het cho n")
elif (m % n != 0):
    print("m chia het cho n")