Дана сторона в, правильного семиугольника. составить программу для нахождения радиуса вписанной окружности r, и площади семиугольника s, по формулам: r=b/2 (1+sqr2) и s=8*r^2*sqr3-2sqr2

Var r,s,b: real;   begin  readln (b); r: =b/2*(1+sqr(2)); s: =8*sqr(r)*sqr((2)*2); writeln (r); writeln(s); end.

Var   a,b,c,d,e,f,g,x1,x2: real; begin   write('введите значения e,f,g: '); readln(e,f,g);   a: =sqrt(abs(sqr(e)-g)/3); writeln('a= ',a: 0: 5);   b: =abs((e-f)/7); b: =b*sqr(b)-cos(g); writeln('b= ',b: 0: 5);   c: =f*sqr(f)-g/17; writeln('c= ',c: 0: 5);   d: =sqr(b)-4*a*c;   if d< 0 then writeln('действителных корней нет')   else       if d=0 then begin           x1: =(-b-sqrt(d))/(2*a); x2: =x1;           writeln('x1=x2= ',x1: 0: 5)       end       else begin           x1: =(-b-sqrt(d))/(2*a); x2: =(-b+sqrt(d))/(2*a);           writeln('x1= ',x1: 0: 5,', x2= ',x2: 0: 5)       end end. тестовое решение: введите значения e,f,g: 2 -3 -3 a= 1.52753 b= 1.35442 c= -26.82353 x1= -4.65721, x2= 3.77053

Алфавит - это счетное множество.мощностью такого множества называется количество элементов этого множества.  в настоящее время термин килобайт не однозначен. возьмем прошлое его значение (наверняка сейчас так и есть в школьной программе)1 килобайт = 1024 байта.  итого: у нас 256*2 = 512 символов, которые занимают 1024/16 = 64 байта.  таким образом   один символ занимает 64/512   = 1/8 байта или один бит. (в каждом байте ровно 8 бит).  один бит информации это нолик или единичка. то есть имеет всего два значения.  это и есть ответ к : мощность алфавита: 2