#include
int main()
{
float eps, m, sum;
int n = 1;
cin >> eps;
m = 1.0/((3*n-2)*(3*n+1));
sum = 0;
while( m >= eps)
{n++; sum+= m; m = (1.0/((3*n-2)*(3*n+1))); }
cout << sum;
return 0;
}
4 бита-2^4 варианта => 16 цветов
1. Е3
2.=B3*B3-4*B2*B4
3.C1=-6 C2=7 C3=-79 D1=1 D2=87 D3=1:87
Задача 2
var a,b:real;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if (a>=0) and (a <=15) or (b>=0) and (b<=15) then
writeln(sqr(a)+sqr(b))
else
writeln ((a+b)/2);
readln;
<span>end.
задача 1
</span>var x:real;
begin
write('x= ');
readLn(x);
if x<6 then WriteLn(sqr(x));
if (x>=-6)and(x<6) then
WriteLn(Abs(x)+4);
if x>=6 then
writeLn(x*(x+1))
end.
задача 3
Var a,b,c,d:real;
x1,x2:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
d:=sqr(b)-4*a*c;
if D>0 then begin
x1:=(-b+sqrt(d))/2*a;
x2:=(-b-sqrt(d))/2*a;
end;
if d=0 then writeln('koren=',-b/2*a);
if d<0 then writeln
('kornei net')
<span>End.</span>