Розрахувати кількість інформації,що міститься у повідомленні to be or not to be​

1.
var
  s: string;
  i, count: integer;
begin
  writeln('Vvedite stroky: ');
  readln(s);
  for i := 1 to length(s) - 2 do
    if copy(s, i, 3) = 'abc' then
      count := count + 1;
  writeln('Kol-vo: ', count);
end.
2.
var
  s1, s2: string;
  i, len1, len2: integer;
begin
  writeln('Vvedite stroky 1: ');
  readln(s1);
  writeln('Vvedite stroky 2: ');
  readln(s2);
  len1 := length(s1);
  len2 := length(s2);
  if len1 > len2 then writeln('1 stroka dlinnee')
  else if len1 < len2 then writeln('2 stroka dlinnee')
  else writeln('dlini strok ravnie')
end.
3.
var
  s1, s2, s3: string;
begin
  writeln('Vvedite stroky 1: ');
  readln(s1);
  writeln('Vvedite stroky 2: ');
  readln(s2);
  s3 := s1[1] + s1[2] + s2[1] + s2[2];
  writeln('Novaja stroka: ', s3);
end.

просмотр телепередачи - ввод информации;
игра в шахматы - обработка информации;
устное решение примера по математике - обработка и вывод информации;
заучивать стихотворение - сохранение информации;
игра на компьютере - ввод, вывод и обработка информации


Является ли покраска стен примером действия с информацией?
Да конечно является. Мы постоянно считываем стену на наличие непокрашенных кусков. Постоянно передаем информацию что надо красить, как надо красить, как не делать ошибок,
Смотрим закончилась ли краска на кисти, не капает ли краска на пол и тд.
Разве что тут нет хранения информации, а все остальные действия присутствуют

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