Quảng cáo
1 câu trả lời 341
Chương trình Pascal tính tổng S=1+1/2+1/3+1/n bằng cách sử dụng vòng lặp for:
```
program TinhTong;
var
n: integer;
S: real;
begin
write('Nhap n: ');
readln(n);
S := 0;
for i := 1 to n do
S := S + 1/i;
writeln('Tong S la: ', S:0:2);
end.
```
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45502
-
Hỏi từ APP VIETJACK28395
Gửi báo cáo thành công!
