viết chương trình tính tích các số chia hết cho 2 nhưng không chia hết cho 3 từ 1 đến N, với N nhập từ bàn phím (pascal).

0 bình luận về “viết chương trình tính tích các số chia hết cho 2 nhưng không chia hết cho 3 từ 1 đến N, với N nhập từ bàn phím (pascal).”

1. Ở ảnh nha bn 

   :))

   

   Bình luận

2. uses crt;
   var n,i,p:longint;
   begin
   clrscr;
      readln(n);
      p:=1;
      for i:=1 to n do
         if (i mod 2=0) and (i mod 3<>0) then p:=p*i;
      writeln(p);
   readln
   end.

   Bình luận