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.