Cho 2 biến M N xem M N có phải số chia hết cho 3 hay ko rồi thông báo kết quả ra màn hình
2 câu trả lời
Program baitap;
Uses crt;
Var M,N:integer;
Begin
Clrscr;
Write('Nhap M,N:');
Readln(M,N);
If (M mod 3=0) then writeln('M chia het cho 3')
else writeln('M khong chia het cho 3');
If (N mod 3=0) then writeln('N chia het cho 3')
else writeln('N khong chia het cho 3');
Readln
End.
uses crt;
var m,n:longint;
begin
clrscr;
read(m,n);
//Check m
if(m mod 3 = 0) then writeln(m,' chia het 3')
else
writeln(m,' khong chia het 3');
//Check n
if(n mod 3 = 0) then writeln(n,' chia het 3')
else
writeln(n,' khong chia het 3');
readln; readln;
end.
