Yahoo Hỏi & Đáp sẽ ngừng hoạt động vào ngày 4 tháng 5 năm 2021 (Giờ Miền Đông nước Mỹ) và từ nay, trang web Yahoo Hỏi & Đáp sẽ chỉ ở chế độ đọc. Các thuộc tính hoặc dịch vụ khác của Yahoo hay tài khoản Yahoo của bạn sẽ không có gì thay đổi. Bạn có thể tìm thêm thông tin về việc Yahoo Hỏi & Đáp ngừng hoạt động cũng như cách tải về dữ liệu của bạn trên trang trợ giúp này.
Viết chương trình pascal hộ em với ! 5 sao cho ai trả lời nhanh và đúng nhất !?
1) Tính n!
2) Tính S = 1 + 1/2 + ... + 1/2n
2 Câu trả lời
Xếp hạng
- noel_trangLv 41 thập kỷ trướcCâu trả lời yêu thích
1)
begin
readln(n);
gt:=1;
for i:=1 to n do gt:=gt*i;
write(gt);readln;
end.
2)
begin
readln(n);s:=0;
for i:=1 to n do s:=s+1/(2*i);
write(s:0:5);readln;
end.
- 1 thập kỷ trước
1)Var i, n, s: longint;
Begin
Write('n');
Readln(n);
s:=1
For i:=1 to n do s=s*i
Write('Ket qua la: ',s:8:4);
Readln
End.
Bạn vẫn có câu hỏi? Hãy hỏi ngay để nhận câu trả lời.