Question

viết công thức nhập a và b. Cho biết a là ước số của b không? a là ước của b khi b chia hết cho a

Giúp mình với ạ. Mình cảm ơn!

Answer 1

Var a,b:integer;

Begin

Write('Nhap a = ');readln(a);

Write('Nhap b = ');readln(b);

If b mod a = 0 then write(a,' la uoc cua b')

Else write(a,' khong la uoc cua b');

Readln;

End.

Answer 2

Var a,b:integer;

Begin

Write('Nhap a = ');readln(a);

Write('Nhap b = ');readln(b);

If b mod a = 0 then write(a,' la uoc cua b')

Else write(a,' khong la uoc cua b');

Readln;

End.

Answer 3

var a,b: integer;

begin

readln(a,b);

if b mod a=0 then write('yes') else write('no');

end.