ADMICRO

Chương trình sau giải bài toán gì:

Var M, N, I : integer;

BEGIN

            clrscr;

            M := 0 ;

            N := 0 ;

            For I := 1 TO 10000 do

                Begin

                        if  (  (I mod 3) = 0 )  then M := M + 1 ;

                        if  (  (I mod 3) = 0 ) and ( (I mod 5) = 0 ) then N := N + 1 ;

                End;

            writeln( M,‘     ’, N );

            readln

END.

 

Hãy suy nghĩ và trả lời câu hỏi trước khi xem đáp án

ZUNIA12
ZUNIA9
AANETWORK