\(S=\sqrt{1+\sqrt{2+\sqrt{3+...+\sqrt{\left(n-1\right)+\sqrt{n}}}}}\...">
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.

23 tháng 12 2017

Program bai1;

uses crt;

var n , i : integer;

s: real;

begin

clrscr;

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

for i:= 1 to n do

s:=s+sqrt((n-1)+sqrt(n));

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

readln;

end.

23 tháng 12 2017

program bai1;

uses crt;

var

begin

clrscr;

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

s:=0;

for i:=i to n do

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

writeln('Tong la ',s);

readln

end.

23 tháng 12 2017

var n:longint;i,s:real;

23 tháng 12 2017

cái này mới đúng nha :P

Program bai1;

uses crt;

var n , i ,s: longint;

begin

clrscr;

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

for i:= 1 to n do

s:=s+sqrt((i-1)+sqrt(i));

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

readln;

end.

23 tháng 12 2017

like...

23 tháng 12 2017

cí này phải là sqrt((i-1)+sqrt(i)) chứ

vì cái này là \(\sqrt{1+\sqrt{2}}\) chứ phải cộng riêng đâu

23 tháng 12 2017

duong nguyenvan làm sai rồi. Biến s phải khai báo thuộc kiểu real mới tính được chứ!

24 tháng 12 2017

sory nha mình copy nhầm bạn nhìn cái trước xem mình biến s là real;

24 tháng 12 2017

@duong nguyenvan hình như cái for...to...do của bn nó sao sao á

24 tháng 12 2017

tại sao lại cộng 1 ở cái phần 'do' vậy?

24 tháng 12 2017

sao là sao vậy

chắc mình quên chưa gán s:=0 chứ gì :)

24 tháng 12 2017

cái này là

for i:=1 to n do

s:=s+sqrt((i-1)+sqrt(i)) nha bạn

24 tháng 12 2017

ko phải, mk nhập thử chương trình mà ko ra kq, hơn nữa chương trình mk nhập cũng gán rồi, mà bn học lp m v?

24 tháng 12 2017

bn thử nhập chương trình chưa?

24 tháng 12 2017

viết ct rồi

24 tháng 12 2017

9

25 tháng 12 2017

ok, tiền bối, ngừi dạy sai con trẻ rồi

25 tháng 12 2017

đúng ko, sao ko ra vại?

25 tháng 12 2017

cơ mà nói là nhập ct chứ có ns vt đâu, vt ròi mờ

25 tháng 12 2017

:))

25 tháng 12 2017

cho hậu bối hỏi giới tính của tiền bối là gì vại?

25 tháng 12 2017

đúng hết rồi bạn

25 tháng 12 2017

bất quá, mk nhập không đúng, ở cái chỗ 'do' á

25 tháng 12 2017

viết ct của #duong_nguyenvan sửa lại ở for do của mình ở cmn á

25 tháng 12 2017

nam nha

25 tháng 12 2017

okay, vậy kêu tiền bối lun nhá, mần quen lun ik

25 tháng 12 2017

câu này đã chứng minh, tiền bối copy bài

29 tháng 4 2019

Qúa dài nên lười gõ -.- Lập trình đơn giản

30 tháng 4 2019

viết pascal hay là giải toán thế :v

13 tháng 11 2019

câu 2 bạn xem lại đề nhé

câu 1:

bước 1: nhập n

bước 2: t:=0; i:=2;

bước 3: t:=t+1/i; i:=i+1;

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

bước 5: xuất t

bước 6: kết thúc

6 tháng 1 2019

ờ nhưng tại sao kêu t tag vậy Hùng, m tag ko đc ak ?

@Nguyễn Trần Thành Đạt

6 tháng 1 2019

Tú Nguyễn B (Erik) Trương Quang Dũng hành động đi các bạn, đây là sân chơi của các bạn, cộng đồng đang chờ bạn, gia đình chờ bạn, bạn bè chờ bạn ><

17 tháng 4 2018

program tinhp;

uses crt;

var x,n,i: integer;

s: real;

begin

write('Nhap n:');

readln(n);

write('Nhap x:');

readln(x);

s: sqrt(x);

for i:=1 to do s:= sqrt (x+s);

write('tong s=',s:6:2);

readln;

end.

8 tháng 1 2019

var P,x,y,z,t : integer ;

begin

write('nhap gia tri x'); readln(x);

write('nhap gia tri y'); readln(y);

write('nhap gia tri z'); readln(z);

write('nhap gia tri t'); readln(t);

P:=sqrt(x*x+9)*sqrt((5*x+3)/sqrt(x))-sqrt((x*x+x)/(2*x))+abs(z-9*x)+sqrt(((y+5)*(y+5))/abs(t+99)) ;

Write('Gia tri cua P=',P);

readln

end.

8 tháng 1 2019

bạn làm sai rồi cái này tính không phải in với bạn nhập write thiếu ' rồi

31 tháng 8 2019

Đề bài phải cho giới hạn chứ . Với biểu thức của đề bài nếu áp dụng vào Pascal thì nó sẽ như vòng lặp vô hạn.

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á