Помощь начинающему
Добавлено: 23.05.2012 16:57:55
Здравствуйте нужна помошь
что делает программа ,а лучше напишите условия задачи.
заранее благодарен
Begin
c:=2;
s:=0;
for n:=1 to 50 do
begin
с:=6-с;
у:=n/(100+n);
s:=s+с*у;
end;
s:=s+0.5;
writeln(’I = ’, s/300.0);
readln;
End.
что делает программа ,а лучше напишите условия задачи.
заранее благодарен
Begin
c:=2;
s:=0;
for n:=1 to 50 do
begin
с:=6-с;
у:=n/(100+n);
s:=s+с*у;
end;
s:=s+0.5;
writeln(’I = ’, s/300.0);
readln;
End.