Начинаем с конца. Нужно получить 58, поэтому с него и начнем.
58 нельзя извлечь из-под корня (извлечение корня обратно возведению в квадрат), но можно прибавить 3 (обратно вычитанию 3): 58+3=61
61 тоже не извлечь из-под корня, прибавляем 3: 61+3=64
Корень 64=8.
8+3=11
и, наконец, 11+3=14. Записываем действия в обратном порядке: сначала второе действие и т.д. Есть непонятные места?
Program wtf;
var a,b,c,S:integer;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
S:=a+b+c;
writeln('Сумма цифр= ',S);
end.
Вопросы должны, как мне кажется, задаваться следующим образом:
1) N = 1.
2) В какой половине алфавита находится N-я буква?
3) В какой половине из этой части находится N-я буква?
... и т.д. пока не дойдём до самой буквы, т.е. потребуется 5 вопросов на каждую букву (2^5 = 32).
Таким образом, всего – 5*5 = 25 вопросов.
Program
var x,y,r:real;
begin
read(x,y,r);
if (x>=0) and (y>=0) and (x^2+y^2<=r^2) and (x<=0) and (y<=0) and (x+y>= -r) then write('в точку') else write('проверь ещё раз');
end.