Viết chương trình tính tích 100 số tự nhiên đầu tiên P=1/2.1/3.1/4....100 Viết chương trình
2 câu trả lời
uses crt;
var i:longint;p:real;
begin
clrscr;
p:=1;
for i:=1 to 100 do p:=p*(1/(i+1));
write('p=',p);
readln;
end.
$#QLinkVN$
CẤU TRÚC CHƯƠNG TRÌNH CỤ THỂ NHƯ SAU:
program lamooooooo;
uses crt;
var i: word;
p:real;
begin
clrscr;
p:=1;
for i:=1 to 100 do p:=p*(1/i+1);
writeln('Tich cua 100 so tu nhien dau tien co dang nhu de la: ',p:0:2);
readln;
end.
KẾT QUẢ ĐƯỢC NHƯ MÀN HÌNH!
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
