Mình cần gấp ạ Tính tổng sau: S=1+4+7+…+n Với điều kiện của các số để cộng là chia 3 dư 1 20đ nên các bạn làm nghiêm túc

0 bình luận về “Mình cần gấp ạ Tính tổng sau: S=1+4+7+…+n Với điều kiện của các số để cộng là chia 3 dư 1 20đ nên các bạn làm nghiêm túc”

1. program tinh_tong;

   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=1 then s:=s+i;

          write(‘Tong la: ‘,s);

          readln;

   end.

   Bình luận

2. program phuongt;
   uses crt;
      var s, n, i: integer;
   begin
           clrscr;
           write(‘Nhap n = ‘); readln(n);
           s:=0;
           for i:=1 to n do if i mod 3 = 1 then s:=s+i;
           write(‘Tong = ‘, s);
           readln
   end.

   Bình luận