Дано натуральное число. Верно ли, что оно начинается и заканчивается одной и той же цифрой

@gufo4ka · Регистрация: 14.10.2012

Студворк — интернет-сервис помощи студентам

кто-нибудь может помочь с кодом?

@Curry · 13.04.2015, 10:40

Решение "просто так"

Haskell
1
chk n = let s=show n in head s == last s

Решение "с прибабахом"

Haskell
1
2
3
4
import Control.Arrow
 
chk :: Show a => a -> Bool
chk = uncurry (==) . (head &&& last) . show

@Catstail · 13.04.2015, 12:29

Обобщение на любую систему счисления:

Haskell
1
2
3
4
chk :: Integer -> Integer -> Bool
chk n r = (head d) == (last d)
          where d = digList n r
                digList n r = if (n < r) then [n] else (n `mod` r) : digList (n `div` r) r

Новые блоги и статьи Все статьи Все блоги /
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .

@gufo4ka 0 / 0 / 0 Регистрация: 14.10.2012 Сообщений: 33

	Дано натуральное число. Верно ли, что оно начинается и заканчивается одной и той же цифрой 13.04.2015, 10:24. Показов 1276. Ответов 2 Метки нет (Все метки) кто-нибудь может помочь с кодом? 0