Uses crt; Var i,n,t:longint; Begin Clrscr; Write('n=');Readln(n); for i:=1 to n do if (i mod 3=0)or(i mod 5=0) then inc(t,i); writeln('Tong: ',t); writeln('Cac so chia het cho 3 hoac 5 tu 1 den ',n,' la: '); for i:=1 to n do if (i mod 3=0)or(i mod 5=0) then writeln(i); Readln; End.
Uses crt; Var s, i, n: integer; Begin Clrscr; Write('Nhap N = '); readln(n); For i:=1 to n do If (i mod 3 = 0) or (i mod 5 = 0) then s:=s+i; For i:=1 to n do if (i mod 3 = 0) or (i mod 5 = 0) then writeln(i,' '); Readln End.
