задача с цыклом

[Stilet]

как только встретим уже встреченный набор цифр

Ладно. Не буду вникать в дебри. С моим мировозрением это расходится.

julian97

Повторю: еще один кросспост и ты в бане!

[BDA]

Хорошо, согласен, не подумал. Просто цикл как-то легче

while a > 0 do
begin
  b := a mod 10;
  s := s + b * b;
  a := a div 10;
end;

На плюсах решение получается очень простым:

#include <iostream>
#include <algorithm>
using namespace std;

int
f(int a)
{
    int s = 0;
    while (a) {
        int b = a % 10;
        s += b * b;
        a /= 10;
    }
    return s;
}

int
main()
{
    int n;
    while (cin >> n) {
        vector<int> a;
        while ((n = f(n)) != 1 && find(a.begin(), a.end(), n) == a.end()) a.push_back(n);
        if (n == 1)
            cout << "HAPPY" << endl;
        else
            cout << "SAD" << endl;
    }
}

[julian97]

а что такое кросспост??

[Stilet]

Кросспост: http://ru.wikipedia.org/wiki/%D0%9A%...B8%D0%BD%D0%B3
В нашем случае куча одинаковых тем.

[julian97]

а можно на паскаль перевести