Uses crt;
Var x, y: integer;
Begin
Clrscr;
Write('Nhap x = '); readln(x);
y:=x mod 3;
Writeln('So du la: ',y);
Readln
End.
* Not copy ✅
- Đừng quên cảm ơn, vote 5 sao và cho mình câu trả lời hay nhất nha ! Cảm ơn !! 🤧☘️ ( Nếu đúng )
Chúc cậu học tốt !! 🙆♀️💙 ~