uses crt;
var d,f:text; n,t,kt,i,b,e,k,l:longint; a:array[1..10000]of longint; s:string;
begin
clrscr;
   assign(d,'NUMBER.INP');reset(d);
      assign(f,'NUMBER.OUT');rewrite(f);
         while not(eof(d)) do
            begin
               readln(d,n); l:=n;
               repeat
                  kt:=0; t:=0;
                  inc(l);
                  k:=l;
                  repeat s:='';
                     str(k,s);
                     inc(t);
                     a[t]:=0;
                     for i:=1 to length(s) do
                        begin
                           val(s[i],b,e);
                           inc(a[t],b*b);
                        end;
                     if a[t]<>1 then for i:=1 to t-1 do if a[i]=a[t] then kt:=1;
                     k:=a[t];
                  until (k=1)or(kt=1);
               until (k=1)or(l=8);
               if k=1 then writeln(f,l);
            end;
      close(f);
   close(d);
end.

Giải thích:tối nay mình sẽ giải thích cho các bạn!!!

Đây là một số text:

c++ ạ

#include <bits/stdc++.h>
using namespace std;
int value(int a)
{
    int s=0;
    int i;
    while(a!=0)
    {
        i=a%10;
        s=s+pow(i,2);
        a/=10;
    }
    return s;
}
bool check(int a)
{
    vector<int>kt;
    int i;
    do
    {
        kt.push_back(a);
        a=value(a);
        for(i=0;i<kt.size();i++)
        {
            if(a==kt[i])
            {
                return false;
            }
        }

    }
    while(a!=1);
    return true;
}
int main()
{
    int a;
    cin>>a;
    for(int i=a+1;i>0;i++)
    {
        if(check(i))
        {
            cout<<i;
            break;
        }
    }
    //samon247
    return 0;
}