eolymp
bolt
Try our new interface for solving problems
Problems

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

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

\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}, если нет.
Time limit 1 second
Memory limit 64 MiB
Input example #1
91367
Output example #1
HAPPY
Source ACM SEERC 2013, SouthEastern European Region, Ukraine, Division 2, Kharkov, 24-27 October 2013