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

том - сом - сок - сук

том - сом - сум - сук

том - ток   - сок - сук

том - ток - тук - сук

том - тум - сум - сук

том - тум - тук - сукэто при условии, что нельзя заменить букву "с" на букву "с", иначе количество путей бесконечно. 

program counta;

uses crt;

var a,n,x,i: integer; begin

clrscr;   // очищаем экранwrite('введите число n: '); readln(n); // ввод данных

write('введите цифру а: '); readln(a);   // ввод данных x: =1; i: =0;   i-счётчик цифр а   while (n< > 0) do // пока n не стало равным нулю begin    x: =n mod 10; // в x остаток от деления на 10 т.е -отдельная цифра числа       if (a=x) then i: =i+1; если есть совпадение то i увеличиваем на 1      n: =n div 10; переходим к следующему разряду числа (сотни десятки единицы)  end; writeln('цифра ',а,' встречается в данном числе-', i, ' раз(а)'); readkey; // пауза до нажатия на любую клавишу

end.

 

 

var

  a: array[1..1000] of real;

  i, k, n, z: integer;

begin

  writeln('введите число n: ');

  readln(n);

  writeln('введите число z: ');

  readln(z);

  writeln('введите ',n,' действительных чисел (каждое с новой строки): ');

  for i : = 1 to n do

  begin

    readln(a[i]);

    if a[i] > z then

    begin

      a[i] : = z;

      k : = k + 1;

    end;

  end;

  writeln('количество замен: ', k);

end.