Question

Nhập số nguyên N>0. Viết chương trình tìm M lớn nhất nhỏ hơn N, sao cho tổng chữ số của 1 đơn vị

Vd: N =1520

Số M tìm được là 1510

Answer 1

Program HOC24;

var n,i: integer;

function tcs(x: integer): integer;

var t: integer;

begin

t:=0;

while x<>0 do

begin

t:=t + (x mod 10);

x:=x div 10;

end;

tcs:=0;

end;

begin

write('N = '); readln(n);

if n>0 then

begin

for i:= n downto 1 do

if tcs(n)-tcs(i) = 1 then

begin

write('M= ',i);

break;

end;

end;

readln

end.