Viết chương trình tính tổng và giải thích cách tìm công thức tổng quát của bài toán:
\(S=\sqrt{1+\sqrt{2+....+\sqrt{n-1+\sqrt{n}}}}\) vơi nhập từ bàn phím.
(*Kiến thức mới: SQRT(x) :\(\sqrt{x}\))
Tin học
Thiếu tướng -
23 tháng 7 2018 lúc 14:39
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.
Đúng 0
Bình luận (3)
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.
Đúng 0
Bình luận (10)
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ó
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
Những chỗ sai được in đậm em nhé
program Hà 0908
uses crt;
begin
clrscr;
writeln('(2+9)(9+2)/(10+1)= '; (2+9)(9+2)/(10+1)= :4:2');
readln;
end.
Sửa lại như sau:
program Ha_0908;
uses crt;
begin
clrscr;
writeln('(2+9)(9+2)/(10+1)= ', (2+9)(9+2)/(10+1):4:2);
readln;
end.
Đúng 32
Bình luận (8)
sai nhu nay
Hà 0908 ko ';'
writeln... =;4;2'); => ko co dau ' nay nha
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
Loading...