Viết chương trình tính: S= 1/1.2+1/2.3+...+1/n (n+1).

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.

Chọn lớp

Chọn môn

Mua vip

HT

hoàng thị anh

14 tháng 2 2019

Viết chương trình tính:

S= 1/1.2+1/2.3+...+1/n (n+1).

#Tin học lớp 8

1

LD

Luân Đào

16 tháng 2 2019

program help; uses crt; var i, n: integer; A: real; begin clrscr; write('Nhap so n vao: n = '); read(n); A:=0; for i:=1 to n do A:=A+1/(i*(i+1)); writeln('Tong A thu duoc la ',A); readln end.

Các câu hỏi dưới đây có thể giống với câu hỏi trên

N

neon

7 tháng 3 2023

Xoá sạch màn hình kết quả, sử dụng vòng lặp For .. do hoặc While ..do viết chương trình tính tổng sau:

S=1.2 + 2.3+ 3.4 + ...+ n.(n+1) (n nhập từ bàn phím)

#Tin học lớp 8

2

ML

Minh Lệ

7 tháng 3 2023

while..do

Program HOC24;

uses crt;

var i,n: integer;

S: longint;

begin

clrscr;

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

i:=0; s:=0;

while i<n do

begin

i:=i+1;

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

end;

write('S=',S);

readln

end.

ML

Minh Lệ

7 tháng 3 2023

For..do

Program HOC24;

uses crt;

var i,n: integer;

S: longint;

begin

clrscr;

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

s:=0;

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

write('S=',S);

readln

end.

NH

Nông Hoàng Đức

11 tháng 3 2020

Viết chương trình tính tổng sau? Với n được nhập vào từ bàn phím?

S = 1.2 + 2.3 + 3.4 + .... + n.(n+1)

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

11 tháng 3 2020

uses crt;
var s,i,n:longint;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+i*(i+1);
writeln(s);
readln;
end.

QN

Quang Ngoc

18 tháng 3 2019

Câu 1: Viết chương trình tính tổng và in ra kết quả của tổng đó (với n là một số nguyên được nhập từ bàn phím):

S= 1/2+1/3+1/4+ ... + 1/n+1

Câu 2: Viết chương trình tính tổng và in ra kết quả của tổng đó:

A=1/1.2 + 1/2.3 + 1/3.4 + ... + 1/n(n+1)

#Tin học lớp 8

2

S

Shiro

18 tháng 3 2019

câu2

var n,i:integer;

s:real;

begin

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

s:=0;

for i:=1 to n do s:=s+(1/(i*(i+1))); writeln(' Tong la: ',s); readln; end.

ML

Minh Lệ

27 tháng 5 2023

Câu 1:

Program HOC24 ;

var i,n : integer ;

s: real;

begin

write('nhap gia tri n:'); readln(n);

S:=0;

for i:= 1 to n do

S:= S+1/(i+1) ;

write('S= ',S:6:2);

readln

end.

HL

HA LE

11 tháng 4 2019

Dùng ngôn ngữ lập phương trình Pascal, viết chương trình theo yêu cầu sau:

Tính S=1.2+2.3+3.4+....+n(n+1)(n nhập từ bàn phím)

#Tin học lớp 8

2

ML

Minh Lệ

11 tháng 4 2019

Lời giải :

program hotrotinhoc ;

var S,n,i : integer ;

begin

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

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

write('S=',S);

readln

end.

TP

Trần Phương Thảo

2 tháng 3 2020

Var n,S,i:longint;

Begin

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

S:=0;

For i:=1 to n do S:=S+n*(n+1);

writeln(S);

Readln

End.

PG

pham gia khiem

3 tháng 5 2023

Viết chương trình tính tổng sau:S = 1 + 1.2 + 1.2.3 + 1.2.3.4 + …+ 1.2…N Với N là số nguyên nhập vào từ bàn phímgiúp mình với ạ, mình đang cần...

#Tin học lớp 8

1

NB

Ngô Bá Hùng

3 tháng 5 2023

program TinhTong;
uses crt;
var
N, i, j, tich: integer;
S: real;
begin
clrscr;
write('Nhap so nguyen N: ');
readln(N);

S := 0;
tich := 1;

for i := 1 to N do
begin
tich := tich * i;
S := S + tich;
end;

writeln('Tong S = ', S:0:2);
readln;
end.

PG

pham gia khiem

3 tháng 5 2023

tôi chạy nó ra thế này bạn ơi

NH

Nguyễn Híu

8 tháng 2 2017

Viết chương trình tính S=\(\frac{1}{1.2}+\frac{1}{2.3}+\frac{1}{3.4}+....+\frac{1}{99.100}\)

#Tin học lớp 8

3

HN

Hà Ngân Hà

9 tháng 2 2017

program Tinh_tong;

uses crt;

var S, i: longint;

begin

clrscr;

S:= 0;

i:=1;

For i:= $1$ to 99 do $S:= S + 1/[i*(i+1)]$ ;

writeln('Tong cua S=', S);

Readln

End.

TT

Trịnh Thị Như Quỳnh

9 tháng 2 2017

program Tinh_tong;

uses crt;

var S,i,n:longint;

begin

clrscr;

writeln('hay nhap n',); Readln(n);

S:=0;

i:=1;

For i:=\(\frac{1}{1.3}\)to\(\frac{1}{99.100}\) do \(S:=S+\frac{1}{99.100}\);

i:=i+1;

IF i<=n THEN writeln('Tong cua S=',A);

Readln

End.

BC

Bảo Châu

4 tháng 5 2021

1. Viết chương trình tính tổng sau:a) S = \(1+\dfrac{1}{2}+\dfrac{1}{3}+...+\dfrac{1}{n}\)b) S = \(1+\dfrac{1}{3}+\dfrac{1}{5}+...+\dfrac{1}{n}\)2. Viết chương trình nhập 2 số nguyên a và b. Tìm bội chung nhỏ nhất3. Cho một dãy số gồm N phân tử:- Tính tổng các phân tử trong dãy số- Tìm phân tử lớn nhất- In ra màn hình các số nguyên tố có trong...

#Tin học lớp 8

3

BA

Bùi Anh Tuấn

4 tháng 5 2021

bài 1

BA

Bùi Anh Tuấn

4 tháng 5 2021

NL

NGUYỄN LÊ XUÂN THỊNH

19 tháng 2 2023

1. Viết chương trình tính tích N=1*2*3*...*n (với n được nhập từ bàn phím) 2. Viết chương trình tính tổng A=1/1*3+1/2*4+1/3*5+...+1/n*(n+2) 3. Viết chương trình tính tổng số lẻ có trong dãy từ 0->n (n được nhập từ bàn phím) 4. Viết chương trình in ra màn hình các số chẵn có trong dãy từ 0->n (n được nhập từ bàn phím) và đếm có bao nhiêu số. 5. Viết chương trình in ra màn hình các số lẻ có trong dãy số từ 0->n (n được...

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

20 tháng 2 2023

Câu 6:

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

if n mod i=0 then write(i:4);

readln;

end.

5:

uses crt;

var n,i,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=0 to n do

if i mod 2=1 then

begin

write(i:4);

dem:=dem+1;

end;

writeln;

writeln(dem);

readln;

end.

VD

Vũ Duy

2 tháng 1 2018

Viết chương trình tính tổng :

1, \(\dfrac{1}{1.2}+\dfrac{1}{2.3}+\dfrac{1}{3.4}+.....\dfrac{1}{n\left(n+1\right)}\)

2, \(\dfrac{1}{1}+\dfrac{1}{3}+\dfrac{1}{5}+.....\dfrac{1}{2n-1}\)

#Tin học lớp 8

2

TQ

Trương Quang Dũng

2 tháng 1 2018

progrỉnam bai1;

var n,i:longint;

s:real;

begin

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

s:=0;

for i:=1 to n do

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

writeln('Tong la ',s);

readln

end.

TN

Tú Nguyễn

3 tháng 1 2018

1) var n,i:integer;

s:real;

begin

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

s:=0;

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

writeln(' Tong la: ',s);

readln;

end.

2) var n,i:integer;

s:real;

begin

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

s:=0;

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

writeln(' Tong la: ',);

readln;

end.