bài 1:

uses crt;
var n,i,s:longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  s:=0;
  for i:=1 to n do if(i mod 3=0)and(i mod 9<>0)then s:=s+i;
  write('s=',s);
 readln
end.

bài 2:

uses crt;
var n,i,s:longint;
function CP(a:longint):boolean;
var i,kt:longint;
        begin
         kt:=0;
         for i:=1 to a do if(sqr(i)=a)then kt:=1;
         CP:=kt=1;
        end;
begin
 clrscr;
  write('nhap n:');readln(n);
  s:=0;
  for i:=1 to n do if(CP(i))then s:=s+i;
  write('s=',s);
 readln
end.

- Tổng các số chia hết cho 3 nhưng không chia hết cho 9 từ 1 - n :

uses crt;

var i, N, S : integer;

begin

clrscr; S := 0;

write('Nhap so N : '); readln(N);

for i := 1 to N do

if (i mod 3 = 0) and (i mod 9 <> 0)

then S := S + i;

write('Tong = ', S);

readln

end.

- Tổng số chính phương và là số lẻ từ 1 - N;

uses crt;

var i, N, S : integer;

begin

clrscr; S := 0;

write('Nhap so N : '); readln(N);

for i := 1 to N do

if (sqr(trunc(sqrt(i))) = i) and (i mod 2 <> 0)

then S := S + i;

write('Tong = ', S);

readln

end.