eolymp
bolt
Попробуйте наш новый интерфейс для отправки задач
Задачи

Бабушкины причуды (задача от спонсора)

Бабушкины причуды (задача от спонсора)

\includegraphics{https://static.e-olymp.com/content/99/99b3a3f1c00ad87102faf2d81a1c3a622817061f.jpg} Когда наши герои уже сели в самолёт, их внимание привлёк странный юноша, постоянно чесавший затылок и писавший какие-то непонятные слова \textit{include}, \textit{for}, \textit{void} у себя в блокноте. Познакомившись с ним, Котигорошко и его друзья узнали, что его зовут Семён, он программист компании \textit{NIX Solutions} и за качественную работу получил большую премию. На полученную премию он отдохнул на экзотических островах, а на остальные деньги хочет купить себе автомобиль. Вот только есть одна небольшая проблема -- его родная бабушка, являющаяся экспертом в нумерологии, утверждает, что номер автомобиля должен быть только "счастливым", тогда Семёна не будет останавливать ГАИ и ему всегда будет сопутствовать удача. Чтобы понять, "счастливый" номер или "нет", бабушка выполняет математические вычисления в тетрадке следующим образом: \includegraphics{https://static.e-olymp.com/content/29/2912eb5389557c75060af88d96d1f3f552f69629.jpg} Вычисляет сумму квадратов цифр числа. Потом повторяет операцию для полученнго результата и делает это до тех пор, пока результат не окажется равным единице, или вычисления не попадут в бесконечный цикл. Если операция закончилась на единице, то число счастливое. Семёну выполнять вычисления на бумажке скучно, поэтому он написал программу, которая определяет "счастливый" номер машины или нет. Можете ли Вы написать такую же полезную программу? Номер машины пятизначный. \InputFile В единственной строке входного файла записан номер автомобиля \textbf{N} (\textbf{10000} ≤ \textbf{N} ≤ \textbf{99999}). \OutputFile В выходной файл вывести слово \textbf{HAPPY}, если номер счастливый и \textbf{SAD}, если нет.
Лимит времени 1 секунда
Лимит использования памяти 64 MiB
Входные данные #1
91367
Выходные данные #1
HAPPY
Источник ACM SEERC 2013, SouthEastern European Region, Ukraine, Division 2, Kharkov, 24-27 October 2013