Chương trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Hưng Trần

Viết chương trình tính tổng dãy số:

S= \(1+\frac{1}{2^2}\)+\(\frac{1}{3^2}\)+...+\(\frac{1}{100^2}\)

S= \(1+\frac{1}{3^2}\)+\(\frac{1}{5^2}\)+...+\(\frac{1}{N^2}\)

Nguyễn Lê Phước Thịnh
25 tháng 12 2019 lúc 12:10

1: tính tổng của \(S=1+\frac{1}{2^2}+\frac{1}{3^2}+\frac{1}{4^2}+...+\frac{1}{100^2}\)

uses crt;

var s:real;

i:integer;

begin

clrscr;

s:=0;

for i:=1 to 100 do

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

writeln('tong cua day so la: ',s);

readln;

end.

2: tính tổng \(S=1+\frac{1}{3^2}+\frac{1}{5^2}+\frac{1}{7^2}+...+\frac{1}{n^2}\)

uses crt;

var s:real;

n,i:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do

if i mod 2=1 then s:=s+1/(sqr(i));

writeln('tong cua day so la: ',s:4:2);

readln;

end.

Khách vãng lai đã xóa
Bùi Anh Tuấn
25 tháng 12 2019 lúc 13:44

Hỏi đáp Tin họcHỏi đáp Tin học

Khách vãng lai đã xóa

Các câu hỏi tương tự
Vũ Thị Thơ
Xem chi tiết
Nguyễn Thị Tươi
Xem chi tiết
Kimian Hajan Ruventaren
Xem chi tiết
Tran Anh
Xem chi tiết
Đạt Hoàng
Xem chi tiết
Dũng Sầm
Xem chi tiết
Vân Ngô
Xem chi tiết
Đạt Hoàng
Xem chi tiết
Asmodues
Xem chi tiết