Question

Viết chương trình tính tổng \(S=\sqrt{1+\sqrt{2+\sqrt{3+...+\sqrt{\left(n-1\right)+\sqrt{n}}}}}\)

Answer 1

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.

Answer 2

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.

Answer 3

var n:longint;i,s:real;

Answer 4

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.

Answer 5

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ứ!