Const eps=0.001;
var n,st,f:integer; a,s:real;
begin
n:=1; a:=2;
st:=2; f:=1; s:=2;
while a>eps do
begin
st:=st*2;
f:=f*n;
a:=st/f;
s:=s+a;
n:=n+1;
end;
writeln('s = ',s:6:3);
end.
Результат:
<span>s = 14.778</span>
1. Одинарный,
2. Полуторный,
3. Двойной,
4. Одинарный,
5. Одинарный.
Отступ - второй абзац,
Выступ - пятый абзац.
Держи!
1)
var i,n,result:integer;
begin
read(n);
result:=0;
for i:=1 to n do
begin
result:=result+i;
end;
write(result);
end.
2)
var i,n,increase,result:integer;
massive = array[1..1000] of integer;// ищем делители в диапазоне 1-1000
begin
read(n);
for i:=1 to 1000 do
begin
if((n mod massive[i])=0) then
begin
increase:=increase + 1;
end;
end;
result:=increase;
write(result);
end.
Следует четырежды повторить следующую группу действий:
1) закатить в нишу ближайший к ней черный шарик
2) перекатить все шарики в левую часть желоба
3) перекатить все шарики в правую часть ниши
4) перекатить все шарики в правую часть ниши
5) выкатить черный шарик из желоба