program Lam_Lui;
var S:extended;
i,n:integer;
begin
clrscr;
write('Nhap n = ');
readln(n);
S:=0;
for i:=n downto 1 do S:=sqrt(i+S);
write('Sai tự chịu: ',S);
readln;
end.
program Lam_Lui;
var S:extended;
i,n:integer;
begin
clrscr;
write('Nhap n = ');
readln(n);
S:=0;
for i:=n downto 1 do S:=sqrt(i+S);
writeln('Sai tự chịu: ',S);
readln;
end.
Trong MSWLOGO:
To tinhtoan :n
CS
make "A 0
FOR [i :n 1 -1][Make "A :A+sqrt(:i+:A)]
RT 90 LABEL (List "Tong "la: :A)
end
Mọi thắc mắc xin gửi về tổng đài: 1900, 1 ko ko có
progam giaibaitaphoc24_vn;
var n , s : real;
begin
write(`nhap bieu thuc s : ');
readln(n);
s:=sqrt(1+sqrt(2+sqrt(...sqrt(n-1+sqrt(n));
writeln('gia tri bieu thuc s = `, s:7:3);
readln;
end
program fds;
uses crt;
var i,n,S: integer;
begin
clrscr;
write('n=');
readln(n);
for i:=1 to n do S=sqrt(S+sqrt(i));
readln;
end.
bạn cứ làm thử đi nhé
mình không biết bạn biết hay không
sqr(x): x2