Помогите пожалуйста мне срочно надо!Итак задание о информатике в Кумир именно в кумире НЕ В ПАСКАЛЕ И НЕ В ПИТОНЕ ,А В КУМИРЕ (кто в паскале сделает жалобу) задание такое :Ввести два числа и определить ,верно ли, что в его записи есть две одинаковые цифры стоящие рядом (кто в интернете просто скопирует тоже жалобу)
Ответы
Ответ дал:
0
алг Соседи
нач
цел число, цифра_до, цифра
ввод число
утв число>=10
цифра_до:=mod(число,10);
число:=div(число,10);
нц пока число>0
цифра := mod(число,10)
если цифра=цифра_до
то
вывод 'В числе есть соседние одинаковые цифры'
стоп
иначе
цифра_до:=цифра
все
число:=div(число,10)
кц
вывод 'В числе нет соседних одинаковых цифр'
кон
нач
цел число, цифра_до, цифра
ввод число
утв число>=10
цифра_до:=mod(число,10);
число:=div(число,10);
нц пока число>0
цифра := mod(число,10)
если цифра=цифра_до
то
вывод 'В числе есть соседние одинаковые цифры'
стоп
иначе
цифра_до:=цифра
все
число:=div(число,10)
кц
вывод 'В числе нет соседних одинаковых цифр'
кон
Вас заинтересует
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад
9 лет назад