Giải bởi Vietjack
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.
Gói VIP thi online tại VietJack (chỉ 400k/1 năm học), luyện tập gần 1 triệu câu hỏi có đáp án chi tiết
