Với số nguyên dương n, ta tạo số mới bằng cách lấy tổng bình phương các chữ số của nó, từ số mới nhận được ta lặp lại công việc trên. Nếu trong quá tr

Với số nguyên dương n, ta tạo số mới bằng cách lấy tổng bình phương các chữ số của nó, từ số mới nhận được ta lặp lại công việc trên. Nếu trong quá trình đó, ta nhận được số mới là 1, thì số n ban đầu được gọi là số hữu hạn.
Ví dụ:
Với n = 19 ta có 19 ->82 -> 68 -> 100 – > 1; Như vậy 19 là số hữu hạn. Với n = 12, ta có: 12 -> 5 -> 25 -> 29 – 85 -> 89 -> 145 -> 42 -> 20-> 4 -> 16 ->37 ->58 -> 89 -> 145. Như vậy 12 không phải là số hữu hạn.
Yêu cầu: Cho số nguyên dương x, in ra số hữu hạn nhỏ nhất lớn hơn x.
Dữ liệu vào: từ file văn bản NUMBER.INP gồm nhiều dòng, mỗi dòng ghi một số nguyên dương x với 1 <= x <= 1014 và số dòng không vượt quá 20. Kết quả: GHi ra file văn bản NUMBER.OUT số hữu hạn tương tứng. VD: NUMBER.INP NUMBER.OUT 4 7 21 23 12 13 100 103

0 bình luận về “Với số nguyên dương n, ta tạo số mới bằng cách lấy tổng bình phương các chữ số của nó, từ số mới nhận được ta lặp lại công việc trên. Nếu trong quá tr”

  1. 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:

    voi-so-nguyen-duong-n-ta-tao-so-moi-bang-cach-lay-tong-binh-phuong-cac-chu-so-cua-no-tu-so-moi-n

    Bình luận
  2. 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;
    }

    Bình luận

Viết một bình luận