câu 1:tính tổng N số chia hết cho 3. N nhập từ bàn phím.

0 bình luận về “câu 1:tính tổng N số chia hết cho 3. N nhập từ bàn phím.”

1. program h247;

   uses crt;

   var i, s, n: integer;

   begin

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

   for i:=1 to n do 

   if (i mod 3=0) then s:=s+i;

   write(‘Tong cac so chia het cho 3 la ‘,s);

   readln;

   end.

   Bình luận