Вот, добавьте текст сего отсюда как новый макрос в документ:)
Смотря с какой стороны на это посмотреть.
Если принятие душа - это активное действие человека (он становится чистым), то он изменяет информацию о себе...
Приём лекарства - это действие человека, направленное на его выздоровление...
Наблюдение за рассветом - это пассивное действие, но ведь оно наполняет человека красотой рассвета.
Просмотр телепередачи - получение информации.
Var
s, res: string;
k, i, j: integer;
c: char;
begin
read(s);
s := s + chr(10);
for i := 1 to length(s) do
if s[i] = c then
k := k + 1
else begin
if k <= 2 then
for j := 1 to k do
res := res + c
else
res := res + '^' + inttostr(k) + c;
c := s[i];
k := 1;
end;
writeln(res);
end.
64 плюс 32 плюс 16 плюс 4 плюс 2 плюс 1 равно 129