Var s:string;
begin
readln(s);
if odd(length(s)) then delete(s,length(s) div 2+1,1)
else delete(s,length(s) div 2,2);
writeln(s)
<span>end.</span>
#include <iostream>using namespace std;int main(){string s;cin>>s;for(int i=6;i>=0;i--)cout<<s[i];}
2^i = 2000; => i=11 бит;
11*40=440 бит/8 = 55 байт
4610,десяточка маленькая снизу =1011102 двоечка маленькая снизу
Ответа такой: (4^2-3-3-3)^2=49
А если по командам, то - 21112