Как можно узнат сколько бит в слове ана

 

1 символ-8 бит

в данном случае здесь 3 символа.значит, чтобы узнать скольно бит в твоем словее нужно 3*8=24. 

один символ кодируется одним байтом, т. е. восемью битами.

значит 3*8= 24

  но возможны и другие варианты.

Для начала нужно решить чисто , решения на листочках.  поскольку школьная, то вариант совпадения точек не рассматривается алгоритмического языка не знаю, но поскольку это вариант псевдокода, то думаю алгоритм вполне понятен алг круг_по_двум_точкам_и_радиусу(арг действ ax, арг действ ay, арг действ bx, арг действ by, арг действ r)     дано | a,b,r     надо | нарисовать окружность нач     ввод ax, ay, bx, by, r     действ dab = ((ax - bx)^2 + (ay - by)^2)^(0.5) // длина ав     действ h = (r^2-dab^2/4)^(0.5) // высота и длина вектора ом     // м середина ав     действ mx = (ax + bx) / 2      действ my = (ay + by) / 2     //первый круг     действ  ox = mx + (ay - by) * h/dab     действ  oy = my - (ax - bx) * h/dab     нарисовать_круг(ox, oy, r)     //второй круг     ox = mx - (ay - by) * h/dab     oy = my + (ax - bx) * h/dab     нарисовать_круг(ox, oy, r) кон

Var     k: string; begin     read(k);     if (length(k)  =  3) then write(k,  '  -  3-ное  число)     else write(k,  '  -  не  3-ное  число'); end. var     a,b,c: longint; begin     read(a, b, c);     if (a  < = b)and(a < =  c) then write(a)     else (b  < =  a)and(b  < =  c) then write(b)     else write(c); end. var     a,b,c: longint; begin       read(a,  b,  c);         if (a =  b) then writeln(a, ' ', b, '  -  взаимно противоположные  числа');     if (a =  c) then writeln(a, ' ', c, ' - взаимно противоположные числа');       if (b  =  c) then writeln(c, ' ', b, ' - взаимно противоположные числа');         end. var     a,b,c,d: real; begin       read(a,  b,  c,  d);         if (a  =  b)and(b  =  c)and(c  =  d) then  write('ромб')     else write('не  ромб'); end.