Предмет:
ИнформатикаАвтор:
anne38Автор:
neveahАвтор:
madelynnoconnorАвтор:
mckenziemcdowell"Вручную" это подсчитать достаточно сложно, поэтому была написана программа
// PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018// Внимание! Если программа не работает, обновите версию!begin
var (a, b, k) := (1.0, 1.0, 1);
var c:real;
while k<=12 do
begin
c:=a+b/2**k;
b:=a;
a:=c;
Inc(k)
end;
c.Println
end.
2.17213848671486Автор:
sourdoughДобавить свой ответ
Предмет:
Русский языкАвтор:
staffordОтветов:
Смотреть
Предмет:
ХимияАвтор:
tripoddwiuОтветов:
Смотреть
Предмет:
ЛитератураАвтор:
porkchopcprxОтветов:
Смотреть
Предмет:
МатематикаАвтор:
baby63Ответов:
Смотреть