Mình cần gấp ạ Tính tổng sau: S=2+7++12+…+n Với điều kiện của các số để cộng là chia 5 dư 2 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=2+7++12+…+n Với điều kiện của các số để cộng là chia 5 dư 2 20đ nên các bạn làm nghiêm túc”

1. program tinh_tong;

   uses crt;

   varn,i,s:integer;begin

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

   s:=0;

   for i:=1 to n do

   if i mod 5=2 then s:=s+i;

          write(‘Tong S la: ‘,s);

          readln;end

   Bình luận

2. 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 5=2 then s:=s+i;

          write(‘Tong S la: ‘,s);

          readln;

   end.

   Bình luận