Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
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

Minh Lệ
7 tháng 3 2023 lúc 21:32

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.


Các câu hỏi tương tự
Khánh Hoàng
Xem chi tiết
Khánh Hoàng
Xem chi tiết
Võ Tấn Trường Phạm
Xem chi tiết
Nguyễn Huỳnh Khôi Nguyên
Xem chi tiết
NQ Thi
Xem chi tiết
Thảo My Lê Phương
Xem chi tiết
Trường Nguyễn
Xem chi tiết
Tiến Đạt Huỳnh
Xem chi tiết
Nguyễn Thanh Anh
Xem chi tiết