Viết chương trình kiểm tra số nhập vào có chia hết cho 3 hoặc 5 hay không?
Giải thích
Lời giải:
uses crt
var a:real;
begin
writeln('Nhap so can tim:');
readln(a);
if (a mod 3=0) then
writeln(‘So chia het cho 3’)
else if (a mod 5=0) then
writeln('So chia het cho 3')
else then writeln('So khong chia het cho 3 hooc 5);
reodin;
end.