Пожалуйста посчитайте пожалуйста мне срочно надо!Итак задание о информатике в Кумир именно в кумире НЕ В ПАСКАЛЕ И НЕ В ПИТОНЕ ,А В КУМИРЕ (кто в паскале сделает жалобу) задание такое :Ввести два числа и определить ,верно ли, что в его записи есть две одинаковые цифры стоящие рядом (кто в интернете просто скопирует тоже жалобу)
90
ОТВЕТЫ
алг Соседи
нач
цел число, цифра_до, цифра
ввод число
утв число>=10
цифра_до:=mod(число,10);
число:=div(число,10);
нц пока число>0
цифра := mod(число,10)
если цифра=цифра_до
то
вывод 'В числе есть соседние одинаковые цифры'
стоп
иначе
цифра_до:=цифра
все
число:=div(число,10)
кц
вывод 'В числе нет соседних одинаковых цифр'
кон
нач
цел число, цифра_до, цифра
ввод число
утв число>=10
цифра_до:=mod(число,10);
число:=div(число,10);
нц пока число>0
цифра := mod(число,10)
если цифра=цифра_до
то
вывод 'В числе есть соседние одинаковые цифры'
стоп
иначе
цифра_до:=цифра
все
число:=div(число,10)
кц
вывод 'В числе нет соседних одинаковых цифр'
кон
18
Отв. дан
Adriern
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Технология
Molsa
Что такое Стачевание Подскажите как
...
2018-09-25 00:00:00
Anarameena
Подскажите как пожалуйста (всё кроме 6) даю 25поинтов! ...
2018-09-25 00:00:00
Евгения
Що таке мислення?Пожалуйста посчитайте Пж срочно!!!! ...
2018-09-23 00:00:00
Bandirdana
Блюда из баклажанов! Подскажите как срочно! Для тела надо! ...
2018-09-23 00:00:00