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
2 câu trả lời
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.
