//PascalABC.NET
begin
ReadSeqIntegerWhile(x -> x <> 0).Where(x -> (x mod 10 = 6) and (x mod 6 = 0)).Sum.Print;
end.
#include <conio.h>
#include <iostream>
using namespace std;
int main()
{
char s[255];
bool palindrom=true;
gets(s);
for(int i=0;i<strlen(s)/2;i++)
{
if(s[i]!=s[strlen(s)-i-1])
{
palindrom=false;
break;
}
}
if(palindrom)
cout<<endl<<"Palindrom";
else
cout<<endl<<"Ne palindrom";
getch();
return 0;
}
<span>
</span>
Ответ: 0
0 - минимальная длина кодового слова, т.к левая ветвь не занята
Максимальное кол-во — 4 байта = 32 бита
Ответ: 32