Viết chương trình đếm các số chia hết cho 3 và 5 từ M --> N, M N là số nguyên dương nhập từ bàn phím ( M < N )
2 câu trả lời
uses crt;
var M, N, i, d : integer;
begin
clrscr;
write('Nhap so M, N : '); readln(M, N);
if M < N then begin
d := 0; for i := M to N do
if (i mod 3 = 0) and (i mod 5 = 0)
then d := d + 1; write('Co ', d ,' so chia het cho 3 va 5');
end; readln
end.
Program NN;
Uses crt;
Var m,n,d,i: longint;
Begin
Clrscr;
Write('Nhap m,n: '); Readln(m,n);
d:=0;
For i:=1 to n do
If i mod 15 = 0 then inc(d);
Write(d);
Readln
End.
