viết chương trình tính tổng sau s= 1/1 +1/2 +1/3 ........+ 1/n
2 câu trả lời
viết chương trình tính tổng sau s= 1/1 +1/2 +1/3 ........+ 1/n
uses crt;
var n,i:longint;
s:real;
begin
clrscr;
write('nhap n= ');
readln(n);
i:=0;
s:=0;
repeat
begin
i:=i+1;
s:=s+1/i;
end;
until
i>n;
writeln('tong',s:3:2);
readln
end.
$\text{#Thành}$
code pascal:
program bai_tap;
uses crt;
var i,n:longint;
t:real;
begin
clrscr;
write('nhap n=');
read(n);
t:=0;
for i:=1 to n do
t:=t+(1/i);
write('kq t= ',t:3:5);
readln;
readln;
end.
- Đề 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
