Мне надо! итак о информатике в кумир именно в кумире не в паскале и не в питоне ,а в кумире (кто в паскале сделает жалобу) такое : ввести два числа и определить ,верно ли, что в его записи есть две одинаковые цифры стоящие рядом (кто в интернете просто скопирует тоже жалобу)
нач
цел число, цифра_до, цифра
ввод число
утв число>=10
цифра_до:=mod(число,10);
число:=div(число,10);
нц пока число>0
цифра := mod(число,10)
если цифра=цифра_до
то
вывод 'В числе есть соседние одинаковые цифры'
стоп
иначе
цифра_до:=цифра
все
число:=div(число,10)
кц
вывод 'В числе нет соседних одинаковых цифр'
кон