* Xác định bài toán :

- Input : hai số nguyên a và b

- Output : a chia hết cho b hoặc a không chia hết cho b

* Mô tả thuật toán :

- Bước 1 : nhập hai số nguyên a và b

- Bước 2 :

- Bước 2.1 : nếu a mod b = 0 thì thông báo a chia hết cho b

- Bước 2.2 : ngược lại thông báo a không chia hết cho b

- Bước 3 : kết thúc

* Câu điều kiện : 

- if a mod b = 0 then writeln('a chia het cho b') else writeln('a khong chia hết cho b');

* Viết chương trình :

uses crt;

var a, b : integer;

begin

clrscr;

write('nhap hai so duong a va b : ');readln(a, b);

if a mod b = 0 then writeln('a chia het cho b')

else writeln('a khong chia hết cho b');

readln

end.

Cho bài toán nhập từ bàn phím 2 số nguyên a và b kiểm tra A có chia hết cho b hay không biết bị Nếu a chia hết cho b thì in ra màn hình A chia hết cho b ngược lại thì in ra A không chia hết cho b a

**xác định bài toán**

input 2 số nguyên a,b

output a chia hết cho b hay không?

b1 nhập a,b

b2 nếu a chia b dư 0 thì kết luận a chia hết cho b

b3 nếu a chia b dư khác 0 thì thì kết luận b chia hết cho a

b4 kết thúc   

**Chương trình**

uses crt;

var a,b:longgint;

begin

clrscr;

write('a,b=');

readln(a,b);

if a mod b=0 then writeln(a,' chia het cho ',b) else writeln(b,' chia het cho ',a);

readln

end.