Лабораторная работа по "Программированию"

297

Однажды в просторах рунета появился следующий ребус:

     157892 = 3

     203516 = 2

     409578 = 4

     236271 = ?

Никто так и не смог его разгадать. Позже оказалось, что число в правом столбце равно сумме "кругляшей", которые есть в цифрах числа, расположенного слева. Ваша задача написать программу, которая определяет, сколько кругляшей в числе.

var

  a, b, k : integer;

function cnt(z : byte) : byte;

begin

  case z of

    0, 6, 9 : cnt := 1;

    1..5, 7 : cnt := 0;

    8 : cnt := 2

  end

end;  

begin

  k := 0;

  write('введите целое число: ');

  readln(a);

  while a <> 0 do

  begin

    b := a mod 10;

    k := k + cnt(b);

    a := a div 10

  end;

  writeln('количество кругляшей в числе: ', k);

  readln

end.

[pic 1]

35

Однажды известный профессор обнаружил описания k конечных автоматов. По его мнению, нетривиальность конечного автомата, имеющего n состояний и m переходов, можно описать целым числом d = 19m + (n + 239)*(n + 366) / 2 . Чем больше d, тем больший интерес для науки представляет изучение его свойств.

Помогите профессору вычислить нетривиальность имеющихся у него автоматов.