Сколько всего шагов делает кот, прежде чем
останавливается на 3 секунды?​

В самом общем смысле компьютерная этика занимается исследованием поведения людей, использующих компьютер, на основе чего вырабатываются соответствующие нравственные предписания и своего рода этикетные нормы. Само употребление выражения «компьютерная этика» весьма условно, эта дисциплина очень молода, она появилась на рубеже 70-х — 80-х гг. XX столетия, и наряду с ней употребляются такие термины, как «информационная этика», «киберэтика».

Компьютерная этика представляет собой область междисциплинарного исследования и включает рассмотрение технических, моральных, юридических, социальных, политических и философских вопросов. Проблемы, анализируемые в ней, условно можно разделить на несколько классов: 1) проблемы, связанные с разработкой моральных кодексов для компьютерных профессионалов и простых пользователей, чья работа связана с использованием компьютерной техники; 2) проблемы защиты прав собственности, авторских прав, права на личную жизнь и свободу слова применительно к области информационных технологий; 3) группа проблем, связанных с появлением компьютерных преступлений, определением статуса, то есть преимущественно правовые проблемы.

В рамках компьютерной этики выделяется особая область, называемая «хакерской этикой», основание которой заложили хакеры, пионеры, стоявшие у истоков современных информационных технологий. А с развитием сети Интернет в обиход входит и понятие «сетевой этики» или «нэтикета» (производное от net — сеть и etiquette — этикет), обозначающее совокупность правил, сложившихся среди пользователей глобальной сети.

Текст программы (Pascal)
var
  a,b,c,d,e:byte;
  k:integer;
begin
  k:=0;
  for a:=1 to 9 do begin
    for b:=0 to 9 do
      if b<>a then begin
        for c:=0 to 9 do
          if (c<>a) and (c<>b) then begin
            for d:=0 to 9 do
              if (d<>a) and (d<>b) and (d<>c) then begin
                e:=0;
                repeat
                  if a*c-c*e=a-b+c+d+e then Inc(k);
                  e:=e+2
                until e<9
              end
          end
      end
  end;
  Writeln(k)
end.

Тестовое решение:
190