
Neipal
5 год назад
Срочноооо!!!найдите сумму чисел 1/2+1/4+1/6+...1/20

ОТВЕТЫ

Hase Minna
Oct 24, 2020
const num=20;
var i,j:byte;
r:real;
begin
i:=2;
r:=0;
while i<=num do begin
r:=r+1/i;
i:=i+2;
end;
writeln('1/2+1/4+1/6+...1/20 = ', r);
end.
Если честно, то не понятно в чем суть вопроса...И тут легко ошибиться, но 1.9875
1/2=0.5
1/4=0.25
1/6=0.1666...~0.7
1/8=0.125
1/10=0.1
1/12=0.08333~ 0.08
1/14=0.07142...~0.07
1/16=0.0625
1/18=0.05
1/20=0.05
var i,j:byte;
r:real;
begin
i:=2;
r:=0;
while i<=num do begin
r:=r+1/i;
i:=i+2;
end;
writeln('1/2+1/4+1/6+...1/20 = ', r);
end.
1/2=0.5
1/4=0.25
1/6=0.1666...~0.7
1/8=0.125
1/10=0.1
1/12=0.08333~ 0.08
1/14=0.07142...~0.07
1/16=0.0625
1/18=0.05
1/20=0.05
- НУ ладн
590
Смежные вопросы: