viết chương trình nhập vào số nguyên x và n, đưa ra màn hình tổng S=1+1/3+1/5+1/7…1/n*2-1 làm tròn đến chữ số x thập phân
viết chương trình nhập vào số nguyên x và n, đưa ra màn hình tổng S=1+1/3+1/5+1/7…1/n*2-1 làm tròn đến chữ số x thập phân
var
S:real;
n,i:integer
begin
S:=0
i:i+1;
Writeln(nhap n=’);
readln(n);
if (i mod 2) = 1 then
begin
for 1:=1 to n do begin
if (i mod 2) = 1 then S:S+1/i
Writeln (‘tong la’,T);
readln(n);
end;
end;
end.
# Học Tốt! ^_^ Xin CTRLHN ạ!
#Không biết đúng hay sai nữa ạ! Do bài này mình mới vừa học thôi nên chưa nắm rõ căn bảng ạ.
@trinhthuy1987.
#Team: Hoidap247com.
Uses crt;
Var n,x,i,r:integer; s:real;
ns:string;
Begin
clrscr;
Repeat
Write(‘N: ‘);readln(n);
S:=1;
Until n<=high(integer);
Repeat
inc(i);
if i mod 2=1 then s:=s+(1/i);
Until i=n;
Write(‘X: ‘);readln(x);
str(s,ns);
writeln(‘S: ‘,s:0:x);
readln end.