Интересные задачи не из школьной программы!, Кажутся легкими, но это не так! Опции

[Lidroot]

Ребят столкнулся с проблемой: мало времени, а надо сделать много! эти задачи очень интересные так как они с усложнениями! я несколько сделал, но уже голова опухла... может вы предложите какие нибудь варианты решения?

1) Создать программу для подсчета кол-ва повторений букв во вводимой строке, в бесконечном цикле. Выход осуществлять при вводе ключевого слова Exit.

2) создать игровую программу для угадывания возраста пользователя! Работу программы корректировать выбором Горячо, Холодно, Теплее...

Еще меня интересует информация по заполнению матрицы отсортированными данными по спирали (то что я нашел в факе не подходит)...

Заранеее спасибо!


P.S. Задач оч много

[мисс_граффити]

У меня вот что получилось.
Мой возраст угадала, но времени толком потестировать нет.
Думаю, вариант далек от оптимального... да и послуживший базовым метод деления пополам - не идеал. Можешь переделать под метод золотого сечения или любой другой метод поиска минимума ф-ции.

 program vozr;
var versia,shag,horosho:integer;
begin
shag:=10;
versia:=0;
writeln(versia);
writeln('ugadal? esli da, nazhmite 0, esli net - nazhmite 1');
readln(horosho);
while (horosho<>0) do
  begin
  if horosho=1 then
    versia:=versia+shag;
  if horosho=2 then
    begin
    shag:=-1*round(shag/2);
    versia:=versia+shag;
    end;
  writeln(versia);
  writeln('esli ugadal-nazhmite 0, esli ne ugadal: teplee - nazhmite 1,holodnee - nazhmite 2');
  readln(horosho);
  end;
readln;
end.