Viết chương trình tính tổng S = 1/2 + 1/3 + 1/4 + 1/5 + ... + 1/n. Với n được nhập từ bàn phím, đưa ra kết quả trên màn hình
2 câu trả lời
program window
uses crt;
var n,i:integer;
t:real;
begin
clrscr;
writeln('Nhap n');
readln(n);
t:=0;
for i:=1 to n do
t:=t + 1/i;
writeln('Tong la: ',t:4:2);
readln;
end.
chúc bạn học tốt!
Program BTH;
uses crt;
var n,i:longint;
s:real;
Begin
clrscr;
Write('Nhap n: ');readln(n);
For i:= 2 to n do s:=s+1/i;
writeln('Tong day so tren 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
