cho S=\(\dfrac{1}{2}+\dfrac{3}{4}+\dfrac{6}{5}+..........+\dfrac{2n-1}{2n}\)
viết chương trình nhập số nguyên n (1<=n<=32000) từ bàn phím và in ra màn hình giá trị của S.
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
21 tháng 3 2021
Bài 1:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/(2*i+1);
writeln(s:4:2);
readln;
end.
5 tháng 1 2018
program Bai_1;
uses crt;
var n,i:integer; s:real;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do s:=s+1/(2*i);
write('S=',s);
readln;
end.
program Bai_2;
uses crt;
var n,i:integer; gt:longint; s:real;
begin
clrscr;
write('n='); readln(n);
gt:=1;
for i:=1 to n do
begin
gt:=gt*i;
s:=s+1/gt;
end;
write('S=',s);
readln;
end.
7 tháng 1 2018
- nếu như khai báo biến S:real thì nên thêm độ rộng chữ số vào kq
24 tháng 2 2022
#include <bits/stdc++.h>
using namespace std;
double s,a;
int i,n;
int main()
{
cin>>a;
s=0;
n=0;
while (s<=a)
{
n=n+1;
s=s+1/(n*1.0);
}
cout<<n;
return 0;
}
Program bai1;
uses crt;
var n,i: integer;
s:real;
begin
clrscr;
s:=0;
write('nhap n ='); readln(n);
for i:= 1 to n do
s:=s+(2*i-1)/(2*i);
writeln('S = ' ,s :4:2);
readln;
end.
var n,i:integer;
s:real;
begin
write('n=');readln(n);
s:=0;
for i:=1 to n do s:=s+(2*i-i)/(2*i);
writeln(' tong la : 's)
readln;
end.