

Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
B3:
Program NN;
Uses crt;
Var n: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
If n mod 3 = 0 then Write('YES')
Else Write('NO');
Readln
End.
B4:
Program NN;
Uses crt;
Var n: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
If 100 mod n = 0 then Write('YES')
Else Write('NO');
Readln
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bài 3 :
uses crt;
var n : integer;
begin
clrscr;
write('Nhap so n = '); readln(n);
if n mod 3 = 0 then write(n,' la boi cua 3')
else write(n,' khong la boi cua 3');
readln
end.
Bài 4 :
uses crt;
var n : integer;
begin
clrscr;
write('Nhap so n = '); readln(n);
if 100 mod n = 0 then write(n,' la uoc cua 100')
else write(n,' khong la uoc cua 100');
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