Question

[Khánh Hoàng]

viết chương trình pascal sử dụng câu lệnh lặp while do để tính tổng s=1+1/2^2+1/3^2+...+1/n^2,n là số nguyên nhập từ bàn phím.In kết quả ra màn hình yêu cầu đưa ra 4 dấu cách và 2 chữ số thập phân sau dấu phẩy

Answer 1

[Minh Lệ]

Program HOC24;

var i,n: integer;

s: real;

begin

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

i:=1;

while i<=n do

begin

s:=s+1/sqr(i);

i:=i+1;

end;

write('S= ',s:8:2);

readln

end.