Question

[Minh Nguyệt Điêu]

Câu 1: Viết chương trình tính tổng dãy số sau: S=12+22+...+n2.

Câu 2: Viết chương trình tính tổng nghịch đảo N số nguyên đầu tiên.

Answer 1

[Kiều Vũ Linh]

Câu 1:

var i,n:integer;

s:longint;

begin

write('Nhap n = ');readln(n);

for i:=1 to n do

s:=s+(i*10+2);

write('S = ',s);

readln;

end.

Câu 2:

var i,n:integer;

s:real;

begin

write('Nhap n = ');readln(n);

for i:=1 to n do s:=s+1/n;

write('tong la ',s:10:2);

readln;

end.