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
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 3=1 then s:=s+i;
write('Tong la: ',s);
readln;
end.
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.
