Viết chương trình từ dạng for…. do sang while… do để tính tổng T=1/2+1/4+1/6+……+1/100
Viết chương trình từ dạng for- do sang while… do để tính tổng T=1/2+1/4+1/6+-..+1/100
By Audrey
By Audrey
Viết chương trình từ dạng for…. do sang while… do để tính tổng T=1/2+1/4+1/6+……+1/100
uses crt;
var i:longint; t:real;
begin
clrscr;
i:=0;
while i<100 do
begin
inc(i,2);
t:=t+1/i;
end;
writeln(‘T ‘,t);
readln
end.
program bai1;
var t,i,n:longint;
begin
{repeat
write(‘N= ‘);
readln(n);
unntil n>0}sử dụng repeat until cũng đc
t:=1;i:=2;
while i<=n do
begin
t:=t+1/i;
i:=i+1;
end;
write(‘T= ‘,t);
readln
end.
đó ạ