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
2 câu trả lời
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.
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
