Question

viết chương trình nhập vào số a. kiểm tra xem a có là ước của 100 hay không. nếu có in ra kết qquar 100 /a

Answer 1

var a:byte;

begin

write('a=');readln(a);

if 100 mod a=0 then write(100 div a) else write('a ko la U(100));

readln;

end.