Nhập vào số tự nhiên n, tìm ra số k nhỏ nhất sao cho tổng các chữ số của số k = tổng các chữ số của số n
Vd:
N=2019
In ra 39
Giải thích tổng cs 2019=12
Tổng cs 39 cũng =12 và 39 là nhỏ nhất
uses crt; var n,t:longint; begin clrscr; readln(n); while n<>0 do begin t:=t+(n mod 10); n:=n div 10; end; if t mod 9<>0 then write(t mod 9); t:=t-(t mod 9); while t<>0 do begin write('9'); t:=t-9; end; readln; end.
uses crt; var i,k,n:longint; function tong(a:longint):longint; begin tong:=0; repeat inc(tong,a mod 10); a:=a div 10; until a=0; end; begin clrscr; write('N= ');readln(n); k:=tong(n); i:=1; while tong(i)<>k do inc(i); writeln(i); readln end.