Viết chương trình tính tổng S=1+1/3+1/5+…+1/n với n được nhập từ bàn phím. Nhanh nhất có thể.
Viết chương trình tính tổng S=1+1/3+1/5+…+1/n với n được nhập từ bàn phím. Nhanh nhất có thể.
By Josie
By Josie
Viết chương trình tính tổng S=1+1/3+1/5+…+1/n với n được nhập từ bàn phím. Nhanh nhất có thể.
uses crt;
var s:real; n,i:longint;
begin
clrscr;
write(‘Nhap n: ‘);readln(n);
i:=-1;
while i<n Do
begin
inc(i,2);
s:=s+1/i;
end;
writeln(‘S=’,s:0:3);
readln
end.
program ct;
uses crt;
var i,n:integer;
S:real;
begin clrscr;
write(‘Nhap so n: ); readln(n);
S:=0;
for i:=1 to n do
S:=S+(1/2*i+1);
writeln(‘Tong S la: ‘,S);
readln;
end.