Viết phương trình: Kiểm tra x là số có chia cho 5 không? (Biết x được nhập từ bàn phím ) 28/07/2021 Bởi Athena Viết phương trình: Kiểm tra x là số có chia cho 5 không? (Biết x được nhập từ bàn phím )
program baitap;uses crt;var x:integer;begin readln(x); if x mod 5 = 0 then writeln(x,’ chia het cho 5′) else writeln(x,’ khong chia het cho 5′); readln;end. Bình luận
đây bạn
program baitap;
uses crt;
var x:integer;
begin
readln(x);
if x mod 5 = 0 then
writeln(x,’ chia het cho 5′)
else writeln(x,’ khong chia het cho 5′);
readln;
end.