Câu 9:
uses Crt;
var
i,n:integer; a:Real;
Begin
clrscr;
write('Nhap n: ');
readln(n);
for i:=1 to n do a:=a+1/i;
writeln('Tong la: ',a:5:3);
readln;
end.
câu 10:
uses crt;
var i,n,s:longint;
Begin
clrscr;
write('Nhap n: ');
readln(n);
for i:=1 to n do s:=s+i*i;
write(s);
readln;
end.
[ Cho mình xin CTLHN với ạ ]