Câu 9 : Viết chương trình tính và in ra tổng các số chia hết cho 3 của trong phạm vi từ 1 đến N? (N được nhập vào từ bàn phím) Câu 10 : Viết chương trình S=x/a+x/(a+1)+x/(a+2)+…+x/(a+10)? (a là số nguyên, được nhập vào từ bàn phím)

Câu 1: 

Program BTT;
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 then s:=s+i;
        Write('Tong la: ',s);
        Readln
End.

Câu 2:

Program BTT;
Uses crt;
Var a,x,i: longint;
    s: real;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        Write('Nhap x: '); Readln(x);
        s:=0;
        For i:=0 to 10 do
                s:=s+x/(a+i);
        Write(S:0:2);
        Readln
End.