Bài 7. Câu lênh lặp

Lê Hoàng Thảo Nhi

Viết chương trình tích tích:

P=\(1.\frac{1}{2}.\frac{1}{3}.....\frac{1}{n}\)

Nguyễn Lê Phước Thịnh
17 tháng 1 2020 lúc 14:12

uses crt;

var i,n:integer;

p:real;

begin

clrscr;

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

p:=1;

for i:=1 to n do

p:=p*(1/i);

writeln('tich la: ',p:4:2);

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Thị Ngọc Minh
17 tháng 1 2020 lúc 20:51

program tinhtich;

uses crt;

var s:real;

n:integer;

begin

clrscr;

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

s:=1;

for i:=1 to n do

s:=s*(1/i);

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

readln

end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Cold Wind
Xem chi tiết
Nitrox vntm
Xem chi tiết
Ngân Hà
Xem chi tiết
Yến Trần Thị Lê
Xem chi tiết
Mạnh Dương Nguyễn
Xem chi tiết
nattly
Xem chi tiết
Nguyễn Híu
Xem chi tiết
Nhung Nguyễn
Xem chi tiết
Phượng Hồ
Xem chi tiết