viết chương trình tính tổng các phần tử chia hết cho 3.

0 bình luận về “viết chương trình tính tổng các phần tử chia hết cho 3.”

1. Program BTH;
   uses crt;
   var n,i,s:longint;
   begin
           clrscr;
           write(‘Nhap n: ‘);readln(n);
           For i:=1 to n do
           If i mod 3=0 then
                   s:=s+i;
           write(‘Tong day so tren la: ‘,s);
           readln;
   end.

   Bình luận

2. uses crt;

   var n,i,s:longint;

   begin  

       clrscr;

       read(n); s:=0;

       for i:=1 to n do

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

       write(s);

       readln

   end.

   Bình luận