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.

22 tháng 1 2019

var i,n:integer;

tich:real;

begin

write('nhap n='); readln(n);

tich:=1;

for i:=1 to n do tich:=tich*(1+1/(i*i));

write('ket qua la:',tich);

readln

end.

22 tháng 1 2019

thêm: write('ket qua la:',tich:2:1);

21 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<fixed<<setprecision(2)<<1/(a*1.0+b*1.0);

return 0;

}

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.

14 tháng 3 2023

Sửa lại đề bài : \(A=....+\dfrac{1}{n\left(n+2\right)}\)

Program HOC24;

var i,n: integer;

a: real;

begin

write('Nhap n: '); readln(n);

a:=0;

for i:=1 to n do a:=a+1/(n*(n+2));

write('A = ',a:6:2);

readln

end.

30 tháng 10 2016

cho cái cốt thôi

s:=0;

for i:= 1 to n do

s:=s*(1/(1/(i*i));

30 tháng 10 2016

hiêu2 quá

23 tháng 1 2019

var x,y,s: real;

begin;

Readln(x,y);

S:=(3*x*x*x*y-1/2*x*x+1/5*x*y)*6*x*y*y*y;

Write ('Tong gia tri =' , s:2:1);

Readln;

End.

23 tháng 1 2019

Program CT_2;

Uses Crt;

Var x, y, P: Integer;

Begin

Clrscr;

Writeln('Nhap x, y = ');

Readln(x,y);

P:= (3*x*x*x*y - 1/2*Sqr(x) + 1/5*x*y)*6*x*y*y*y;

Writeln('Vay tich cua bieu thuc la = ',P:0:1);

Readln;

End.

Thuật toán: 

Bước 1: Nhập n

Bước 2: i←1; a←0;

Bước 3: a←a+1/(i*(i+2));

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: xuất a

Bước 7: Kết thúc

Viết chương trình:

uses crt;

var a:real;

i,n:longint;

begin

clrscr;

write('Nhap n='); readln(n);

a:=0;

for i:=1 to n do

a:=a+1/(i*(i+2));

writeln(a:4:2);

readln;

end.

25 tháng 1 2021

Em cảm ơn anh !

15 tháng 3 2021

Program HOC24;

var b: real;

i,n: integer;

begin

write('Nhap n='); readln(n);

b:=0;

for i:=1 to n do b:=b+1/(i+2);

write('B= ',b:1:2);

readln

end.

#include <bits/stdc++.h>

using namespace std;

long long i,n;

double s;

int main()

{

cin>>n;

s=0;

for (i=1; i<=n; i++)

 s=s+((1*1.0)/(2*(i*1.0+1*1.0)));

 cout<<fixed<<setprecision(2)<<s;

return 0;

}

30 tháng 11 2018

var i,n:integer;

s:real;

begin

s:=1;

write('ban hay nhap vao mot so nguyen: '); readln(n);

for i:= 1 to n do

s:= s + (1/(i*(i+1));

writeln(' tong s = ',s:0:2);

readln

end.

26 tháng 11 2020

var i,n:integer;

s:real;

begin

s:=1;

write('ban hay nhap vao mot so nguyen: '); readln(n);

for i:= 1 to n do

s:= s + (1/(i*(i+1));

writeln(' tong s = ',s:0:2);

readln

end.