Mn giúp mình với ạ!!! Viết chương trình tích: 1*1/2*1/3*...*1/n
2 câu trả lời
Uses crt;
Var i,n, t : integer;
Begin clrscr;
Write('Nhap n='); readln(n);
t :=1;
For i:=1 to n do
t := t*1/i;
Write('Tich la', t);
readln
end.
uses crt;
var s:real;
n,i:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
s:=1;
for i:=1 to n do
s:=s*(1/i);
write('Tich la: ',s:4:2);
readln
end.
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
