input a,b,k

output a chia hết cho b hay a và k chia hết cho b

b1 nhập a,b,k

b2 nếu a chia b dư không (pascal : a mod b=0) thì a chia hết cho b

i←i+1

b3 nếu k chia b dư không (pascal : k mod b=0 ) thì k chia hết cho b, i←i+1

b4 nếu i=1 thì a chia hết cho b

nếu i=2 thì a và k chia hết cho b

b5 kết thúc

uses crt;

var a,b,k,i:longint;

begin

clrsc;

write('a,b,k : ');

readln(a,b,k);

if a mod b=0 then i:=i+1;

if k mod b=0 then i:=i+1;

if i=1 then writeln(a,'chia het cho ',b);

if i=2 then writeln(a,' va ',k,'  cung chia het cho ',b);

readln

end.

* 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.