var a:integer;
begin
for a:=1 to 10000 do
begin
if (a mod 10 =8)and(a mod 3 =0) then writeln(a);
end;
end.
Program LOL2016;
var n,s,r:integer;
begin
readln(n);
s:=0;
while(n <> 0) do begin
r:=n mod 10;
s:=s+r;
n:=n div 10;
end;
writeln(s);
end.
<span>
если что то не понятно просто спроси и я обьясню :)</span>
Если буква К кодируется 11001010, то следующая, т.е. Л кодируется 11001010+1 в двоичной, т.е. это равно 11001011. Таким образом найдем код букв М, О и С:
М = 11001010+1+1=11001100; О=М+1+1=11001100+1+1=11001101+1=11001110;
С=О+1+1+1=11001110+1+1+1=11001111+1+1=11010000+1=11010001
Ответ 2.