Lập trình đơn giản

nico

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

Minh Lệ
27 tháng 8 2020 lúc 18:39

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.

Bình luận (0)

Các câu hỏi tương tự
phamthiminhanh
Xem chi tiết
haizzz!!
Xem chi tiết
gái xinh nè
Xem chi tiết
Phan Đức Duy
Xem chi tiết
Yến Phạm
Xem chi tiết
Tú Nguyễn
Xem chi tiết
Nguyễn Linh
Xem chi tiết
Hoàng Như Trâm
Xem chi tiết
Phuong Nguyen dang
Xem chi tiết