Cho M,N viết câu lệnh gán M và N với M chia hết cho N và M chia N lấy phần nguyên Giải dùm ạ
1 câu trả lời
Program baitap;
Uses crt;
Var M,N:integer;
Begin
Clrscr;
Write('M='); Readln(M);
Write('N='); Readln(N);
If (M mod N=0) then writeln('M div N=',M div N)
else writeln('M khong chia het cho N');
Readln
End.
Câu hỏi trong lớp
Xem thêm
