Question

Помогите пожалуйста мне срочно надо!Итак задание о информатике в Кумир именно в кумире НЕ В ПАСКАЛЕ И НЕ В ПИТОНЕ ,А В КУМИРЕ (кто в паскале сделает жалобу) задание такое :Ввести два числа и определить ,верно ли, что в его записи есть две одинаковые цифры стоящие рядом (кто в интернете просто скопирует тоже жалобу)

Answer 1

алг Соседи
нач
  цел число, цифра_до, цифра
  ввод число
  утв число>=10
  цифра_до:=mod(число,10);
  число:=div(число,10);
  нц пока число>0
    цифра := mod(число,10)
    если цифра=цифра_до
      то
        вывод 'В числе есть соседние одинаковые цифры'
        стоп
      иначе
        цифра_до:=цифра
    все
    число:=div(число,10)
  кц
  вывод 'В числе нет соседних одинаковых цифр'
кон