Var s: string;
i:integer;
begin
write('Введите текст: ');
readln (s);
for i:=1 to length(s) do
if s[i]='к' then write (i,' ');
<span>end.</span>
1*2^6+1*2^5+1*2^4+0*2^3+1*2^2+1*2^1+0*2^0<span> = 64+32+16+0+4+2+0 = 118</span>
1)256×4×64=65536
2)16×32×512=262144
3)10×2^10×8=1600
4)2^5×12×32=3840
5)64×1/16×256=1024
6)32×8×1/4=512
вот так
Ответ: 3) 8
У меня получилось так.
Из точки А в точку В (2 км)
Из точки В в точку D (1 км)
Из точки D в точку С (3 км)
Из точки С в точку Е (2 км)
В сумме 8 км.