Câu 1 : Viết chương trình tính và in ra tổng N số nguyên đầu tiê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, a và x được nhập vào từ bàn phím)

Câu 1: N số nguyên dương hay gì nhỉ '-' Nếu là số nguyên thì thế này

Program BTT;
Uses crt;
Var n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do 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.

var x,a:longint;

      s:real;

begin

write('Nhap a,x: '); readln(a,x);

for i:=0 to 10 do

s:=s + (x/(a+i));

write('Tong la: ',s:0:5);

readln;

end.