Đáp án: B= 1/1+1/2+1/3++1/n D= 1/2+1/4+1/6++1/n F= 1+1/3+1/5+1/7++1/n - program oken; uses crt; var i,ninteger; breal; begin write(ʹnhap n ʹ); readln(n); b=1; for i=1 to n do b=b+(i/(i+1)); writeln(ʹB=ʹ,b03); readln; end câu 2 program oken; uses crt; var i,ninteger; dreal; begin write(ʹnhap n ʹ); readln(n); d=1; for i=1 to n do if i mod 2 = 0 then d=d+(1/i); writeln(ʹD=...

program oken; uses crt; var i,ninteger; breal; begin write(ʹnhap n ʹ); readln(n); b=1; for i=1 to n do b=b+(i/(i+1)); writeln(ʹB=ʹ,b03); readln; end câu 2 program oken; uses crt; var i,ninteger; dreal; begin write(ʹnhap n ʹ); readln(n); d=1; for i=1 to n do if i mod 2 = 0 then d=d+(1/i); writeln(ʹD=...

b/ Program BTH;uses crt;var i,nlongint;sreal;Begin clrscr; write(ʹNhap n ʹ);readln(n); For i=1 to n do s=s+1/i; writeln(ʹTong day so tren la ʹ,s42); readln;end d/ Program BTH;uses crt;var i,nlongint;sreal;Begin clrscr; write(ʹNhap n ʹ);readln(n); For i=1 to n do Begin If i mod 2=0 then s=s+1/i; end; writeln(ʹTong day so tren la ʹ,s42); readln;end f/ Program BTH;uses crt;var i,nlongint;sreal;Begin clrscr; write(ʹNhap n ʹ);readln(n); For i=1 to n do Begin If i mod 2=1 then s=s+1/i; end; writeln(ʹTong day so tren la ʹ,s42); readln;end

truclinh234

2 năm trước

B= 1/1+1/2+1/3+....+1/n D= 1/2+1/4+1/6+...+1/n F= 1+1/3+1/5+1/7+...+1/n

Xem đáp án

26 lượt xem

2 câu trả lời

Thiên Phú

2 năm trước

program oken;

uses crt;

var i,n:integer;

b:real;

begin

write('nhap n: '); readln(n);

b:=1;

for i:=1 to n do

b:=b+(i/(i+1));

writeln('B=',b:0:3);

readln;

end.

câu 2:

program oken;

uses crt;

var i,n:integer;

d:real;

begin

write('nhap n: '); readln(n);

d:=1;

for i:=1 to n do

if i mod 2 = 0 then

d:=d+(1/i);

writeln('D=',d:0:3);

readln;

end.

câu 3:

Program oken;
uses crt;
var i,n:intger;

f:real;
Begin
clrscr;
write('Nhap n: ');readln(n);
For i:=1 to n do
Begin
If i mod 2=1 then f:=f+1/i;
end;
writeln('F=',f:0:3);
readln;
end.

Phạm Phúc Thịnh

2 năm trước

Program BTH;
uses crt;
var i,n:longint;
s:real;
Begin
clrscr;
write('Nhap n: ');readln(n);
For i:=1 to n do s:=s+1/i;
writeln('Tong day so tren la: ',s:4:2);
readln;
end.

Program BTH;
uses crt;
var i,n:longint;
s:real;
Begin
clrscr;
write('Nhap n: ');readln(n);
For i:=1 to n do
Begin
If i mod 2=0 then s:=s+1/i;
end;
writeln('Tong day so tren la: ',s:4:2);
readln;
end.

Program BTH;
uses crt;
var i,n:longint;
s:real;
Begin
clrscr;
write('Nhap n: ');readln(n);
For i:=1 to n do
Begin
If i mod 2=1 then s:=s+1/i;
end;
writeln('Tong day so tren la: ',s:4:2);
readln;
end.