Cho bài toán nhập vào từ bàn phím 2 số nguyên a và b, kiểm tra a có chia hết cho b hay k . 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 k chia hết cho b" a, Hãy xác định bài toán và mô tả thuật toán để giải bài toán trên b, Viết câu lệnh điều kiện để thực hiện thuật toán đó c, Viết chương trình bằng ngôn ngữ pascal để giải bài toán trên Mình cần gấp nha ngay tối hôm nay là phải làm rồi mong mọi người giúp

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

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.