<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (fact,eps,s,x):=(1.0,0.001,0.0,1);
while true do begin
fact:=fact*x;
var a:=Power(2/x,x)*fact;
if Abs(a)>eps then begin x+=1; s+=a end
else Break
end;
Writeln('S = ',s:0:3)
end.
<u>Результат</u>
S = 12.946
Вот все варианты решения
значения идут по порядку
"0001110101"
"0001111101"
"0010101101"
"0010110101"
"0010111101"
"0011010101"
"0011011101"
"0011101101"
"0011110101"
"0011111101"
"0101010101"
"0101011101"
"0101101101"
"0101110101"
"0101111101"
"0110101101"
"0110110101"
"0110111101"
"0111010101"
"0111011101"
"0111101101"
"0111110101"
"0111111101"
"1010101101"
"1010110101"
"1010111101"
"1011010101"
"1011011101"
"1011101101"
"1011110101"
"1011111101"
"1101010101"
"1101011101"
"1101101101"
"1101110101"
"1101111101"
"1110101101"
"1110110101"
"1110111101"
"1111010101"
"1111011101"
"1111101101"
"1111110101"
"1111111101"
//Ruby 22
for i in 0..2**10-1
s = ("000000000000000000000000000000" + i.to_s(2))[-10..-1]
next if s[-2]=="1"
a=[]
s.each_char { |c| a<<(c=="1") }
f = true
for k in 0..a.size-3
f = (f and (not a[k] or a[k+1] or a[k+2]))
end
p s if f
end
А) Умножить на 8
Б) Умножить на 1024
В) Умножить на 1024
Так как, в 1 байте 8 бит
1 Кб= 1024 байт
1 Мб= 1024 Кб
1.5 кб - 1 страница
вся книга - 300 кб
#include <iostream>
#include <cmath>
class point
{
int x;
int y;
public:
point(): x(0), y(0) {}
void setkoord(int koordx,int koordy)
{
x = koordx;
y = koordy;
}
int getx()const { return x; }
int gety()const { return y; }
};
double length(point p1, point p2)
{
return (sqrt(pow(double(p1.getx()-p2.getx()),2)+pow(double(p1.gety()-p2.gety()),2)));
}
int main()
{
point A,B,C;
B.setkoord(1,1);
C.setkoord(1,0);
double a=length(A,B), b=length(B,C), c=length(C,A);
double p=(a+b+c)/2;
double s=sqrt(p*(p-a)*(p-b)*(p-c));
std::cout <<"square: " <<s <<std::endl;
return 0;
}
