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.

 

Câu hỏi liên quan

• Trong câu lệnh While – do, điều kiện là: (Chọn phương án đúng nhất)

• Cho hai dạng lặp FOR – DO trong PASCAL như sau :

  Dạng lặp tiến :

              FOR <biến đếm> := <giá trị đầu> TO <giá trị cuối> DO <câu lệnh> ;

  Dạng lặp lùi :

              FOR <biến đếm> := <giá trị cuối> DOWNTO <giá trị đầu> DO <câu lệnh> ;

  Chọn phát biểu đúng trong các phát biểu sau đây :

• Cho chương trình sau:

  

  Màn hình cho kết quả gì khi nhập a = 5000 và b = 10000.

ZUNIA12

• Lệnh lặp For – do được sử dụng khi: (chọn phương án đúng nhất)

• Trong lệnh lặp For – do: (chọn phương án đúng nhất)

• Đoạn chương trình sau làm công việc gì? (Chọn phương án đúng nhất)

              While a < (b+25)   do                     readln(a,b);

• Có thể dùng câu lệnh While – do thay cho câu lệnh For – do được không?

• Trong vòng lặp While – do, câu lệnh được thực hiện khi:

• Cú pháp lệnh lặp For – do dạng tiến:

• Chọn phát biểu sai trong các phát biểu sau đây:

• Tính tống S = 1 + 2 + 3 + … + n + … cho đến khi S>108. Điều kiện vào sau đây cho vòng lặp while – do là đúng

• Vòng lặp While – do kết thúc khi nào

• Câu lênh sau giải bài toán nào:

  While M <> N do

  If M > N then M:=M-N else N:=N-M;

• Đoạn chương trình sau thực hiện công việc gì ?

  i := 0 ;            while i <> 0 do write(i, ‘ ’) ;

• Trong vòng lặp For – do dạng tiến. Giá trị của biến đếm

• Đoạn chương trình sau giải bài toán nào?

              For I:=1 to M do

                          If (I mod 3 = 0) and (I mod 5 = 0) then

                                      T := T + I;

• Đoạn chương trình sau làm công việc gì? (Chọn phương án đúng nhất)

              While a <> 2*b   do               

  Begin    a:=a+1;     b:=b+1;      

  End;

• Hãy cho biết đoạn chương trình sau làm công việc gì ?

  I := 0 ; T := 0 ;

  While I < 10000 do

              Begin

                          T := T + I ;

                          I := I + 2 ;

              End ;

• Mọi quá trình tính toán đều có thể mô tả và thực hiện dựa trên cấu trúc cơ bản là:

• Đoạn chương trình sau cho kết quả trên màn hình là gì với i là biến số nguyên:

  For i := 1 to 100 do if i mod 9 = 0 then write(i, ‘ ’);