mn giúppppppppppppppppppp VCT tính tổng các số chia hết cho 3 mà ko chia hết cho 6 từ 1 đến n

0 bình luận về “mn giúppppppppppppppppppp VCT tính tổng các số chia hết cho 3 mà ko chia hết cho 6 từ 1 đến n”

1. program tinh_tong;

   uses crt;

   var n,i,t:integer;

   begin

          clrscr;

          write(‘Nhap n: ‘);  readln(n);

          t:=0;

          for i:=1 to n do

                 if (i mod 3=0) and (i mod 6<>0) then t:=t+i;

          write(‘Tong cac so chia het cho 3 ma khong chia het cho 6 la: ‘,t);

          readln;

   end.

   Bình luận

2. Xin câu trả lời hay nhất ạ!

   Program abcde;

   Uses crt;

   Var n,i,S:integer;

   begin

   clrscr;

    write(‘Nhap n: ‘);  readln(n);

   S:=0;

    for i:=1 to n do

    if (i mod 3=0) and (i mod 6<>0) then S:=S+i;

   write(‘Tong cac so chia het cho 3 ma khong chia het cho 6 la: ‘,S);

   readln

   end.

   Bình luận