0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
127
60
uses crt;
var n:longint;
begin
clrscr;
repeat write('Nhap so can kiem tra (0<n<1001): ');readln(n);
until (0<n) and (n<1001);
if n mod 3=0 then write(n,' la so chia chan cho 3')
else write(n,' khong la so chia chan cho 3');
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
127
2970
60
cho mình 5sao và câu trả lời hay nhât