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

Cho Tôi Hỏi

Viết chương trình Pascal tính giá trị của biểu thức sau:

(1 + 1/12) (1 + 1/22) ... (1 + 1/n2)

Minh Lệ
13 tháng 3 2019 lúc 17:23

Lời giải :

program hotrotinhoc ;

var i,n : integer ;

A: real ;

begin

write('nhap gia tri n='); readln(n);

A:=1;

for i:=1 to n do

A:=A*(1+1/(i*i));

write('Ket qua la',A);

Readln

end.

Bình luận (0)
Tú Nguyễn
14 tháng 3 2019 lúc 12:03

var i,n:integer;

s:real;

begin

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

s:=0;

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

write(s);

readln;

end.

Bình luận (0)
Tú Nguyễn
14 tháng 3 2019 lúc 12:03

lm lại nhầm

var i,n:integer;

s:real;

begin

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

s:=1;

for i:=1 to n do s:=s*(1/(i*i));

write(s);

readln;

end.

Bình luận (0)
Triều Huỳnh Phạm Long
31 tháng 3 2019 lúc 20:48

program hotrotinhoc ;

var i,n : integer ;

A: real ;

begin

write('nhap gia tri n='); readln(n);

A:=1;

for i:=1 to n do

A:=A*(1+1/(i*i));

write('Ket qua la',A);

Readln

end.

Bình luận (0)

Các câu hỏi tương tự
NGUYỄN LÊ XUÂN THỊNH
Xem chi tiết
Yết Thiên
Xem chi tiết
Khánh Vân
Xem chi tiết
Thanh huyền
Xem chi tiết
Thu Tuyền
Xem chi tiết
SuperMeo
Xem chi tiết
Ngô Tiến Dũng
Xem chi tiết
Thu Tuyền
Xem chi tiết
Khắc Quân Hoàng
Xem chi tiết