Bài 8. Lặp với số lần chưa biết trước

võ nguyễn ý như

Cho số tự nhiên n nhập tư bàn phím, Hãy lập trình để tính các tổng sau : A= 1+ 1/2^2 + 1/3^2 +...+ 1/n^2

MN giúp mình vs nha mai mình thi rồi :((

Nguyễn Lê Phước Thịnh
23 tháng 6 2020 lúc 22:24

uses crt;

var i,n:integer;

a:real;

begin

clrscr;

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

a:=0;

for i:=1 to n do

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

writeln('Ket qua la: ',a:4:2);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Ngọc Nguyễn Thái Khánh
Xem chi tiết
Nguyễn Thị Ngọc Oanh
Xem chi tiết
Thu Tuyền
Xem chi tiết
Thanh huyền
Xem chi tiết
phương thuý nguyễn thị
Xem chi tiết
Thu Anh
Xem chi tiết
Dolce and garbana
Xem chi tiết
Ánh Dương
Xem chi tiết
Họ Và Tên
Xem chi tiết