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: