Viết chương trình thực hiện tính tống các số hạng theo công thức với n là số: S = 1/2 + 1/3 +... +1/n? (Biến S sẽ khai báo ở dạng real)
2 câu trả lời
code pascal:
program bai_tap;
uses crt;
var S:real;
n,i:longint;
begin
clrscr;
write('nhap n= ');
read(n);
S:=0;
for i:=1 to n do
S:=S+(1/i);
write('Kq cua S= ',S:3:10);
readln;
readln;
end.
uses crt;
var n,i:longint;s:real;
begin
clrscr;
write('nhap n:');readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
write('s=',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
