Question

Misaki có một số N, cô ấy đố bạn tìm ra được FNUM của dãy số đó. Một FNUM được xác định là tổng các chữ số của số đó, sau đó lại tính tổng các chữ số của số mới tạo được cho đến khi chỉ còn 1 chữ số duy nhất. Bạn hãy tìm ra số cuối cùng đó nhé!

Yêu cầu: Cho số N, bạn hãy tìm FNUM của số đó.

Dữ liệu nhập:

Gồm 1 số nguyên N duy nhất (1 ≤ N ≤ 10^1000000).

Dữ liệu xuất:

Gồm 1 số nguyên duy nhất là FNUM tìm được.

Ví dụ

input

29

output

2

Các số được tạo ra lần lượt là 29 -> 11 -> 2

Answer 1

uses crt;
var n,s:integer;
{--------------------chuong-trinh-con-nhap---------------------------}
procedure nhap(var a:integer);
begin
write('n='); readln(a);
end;
{-------------------chuong-trinh-con-tinh-tong-cac-chu-so-trong-1-so---------------------}
procedure tong(var x:integer);
var i,d,t,b,c,e:integer;
st:string;
begin
str(x,st);
t:=0;
d:=length(st);
for i:=1 to d do
begin
val(st[i],b,c);
t:=t+b;
end;
if t<10 then writeln(t)
else tong(t);
end;
{---------------------chuong-trinh-chinh------------------------}
begin
clrscr;
nhap(n);
tong(n);
readln;
end.

Answer 2

#include<bits/stdc++.h>
using namespace std;
#define ll long long

int main(){
    ios_base::sync_with_stdio(0);cin.tie(0);
    string s;cin>>s;
    ll t;
    while(1){
        t=0;
        for(ll i=0;i<s.size();i++)t+=s[i]-'0'
        s=to_string(t);
        if(s.size()==1)return cout<<s,0;
    }
}