Viết chương trình tính tổng sau S=2+5+8+… Giải giúp em lập trình này ạ

0 bình luận về “Viết chương trình tính tổng sau S=2+5+8+… Giải giúp em lập trình này ạ”

1. Quy luật: từ số 2 cộng lên từng số thì mỗi số cách nhau 3 đơn vị.

   Chương trình (có nhập giới hạn):

   uses crt;
   var n,i,s:longint;
   begin
   clrscr;
      readln(n);
      i:=2;
      while i<=n do 
         begin
            inc(s,i);
            inc(i,3);
         end;
      writeln(s);
   readln
   end.

   *Lưu ý: Theo đề không nhập giới hạn mà cứ cộng dần lên, mà số nguyên thì không có số lớn nhất nên tổng không thể tính được.

   Bình luận

2. uses crt;
   var i,n,s:longint;
   begin
   clrscr;
      write(‘Nhap n: ‘);readln(n);
      for i:=1 to n do 
         if (i+1) mod 3=0 then inc(s,i);
      writeln(‘S= ‘,s);
   readln
   end.

   Bình luận