Это можно рассмотреть как: "Для i от 10 до -10 выполнить(делать) S=S+1;
Следовательно посчитав " на пальцах"(так проще), находим, что тело цикла выполнится 21раз(0 тоже число)
Вопросы должны, как мне кажется, задаваться следующим образом:
1) N = 1.
2) В какой половине алфавита находится N-я буква?
3) В какой половине из этой части находится N-я буква?
... и т.д. пока не дойдём до самой буквы, т.е. потребуется 5 вопросов на каждую букву (2^5 = 32).
Таким образом, всего – 5*5 = 25 вопросов.
Program lol (input, output);
var a, n, b, p,s, m:integer;
c:real;
begin
read (n);
a:=n;
b:=0;
c:=0;
p:=1;
while a <> 0 do
begin
a:=a div 10;
b:=b+1;
end;
while b <> 0 do
begin
p:=1;
for m:=1 to b do
p:=p*10;
s:=(n mod p) div (p div 10);
if s > 7 then
c:=c+s;
b:=b-1;
end;
writeln (c);
end.
//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
writeln(' x y');
for var i:=-10 to 10 do writeln(i:2,' ',i*i:3);
end.
N(M)=N(И)+N(E)+N(K)
N(И)=N(B)+N(E)=(N(Б)+N(Ж)) + (N(Ж)+N(В))=1+1+1+2=5
N(E)=N(Ж)+N(В)=1+2=3
N(K)=N(Ж)+N(Е)=1+3=4
N(M)=5+3+4=12
Ответ: 12