Question

Cho hai số nguyên dương c và x. Hãy viết chương trình tìm số tự nhiên lớn nhất có c chữ số mà tổng các chữ số đó bằng x.

Ví dụ: c=2 ; x=9

in ra: 90 ( 90 có c là 2 chữ số và tổng các chữ số x là 9)

Answer 1

uses crt;
var c,x,y,d1,j,s,i,n:longint;
function kt(k:longint):longint;
var d,l:longint;
begin
d:=0;
while k<>0 do
begin
l:=k mod 10;
k:=k div 10;
d:=d+l;
end;
kt:=d;
end;
begin
clrscr;
write('Nhap c: ');readln(c);
write('Nhap x: ');readln(x);
s:=1; d1:=1;
for i:=1 to c do
s:=s*10;
for y:=1 to c-1 do
d1:=d1*10;
for j:=s-1 downto d1 do
if kt(j)=x then begin write(j); break; end;
readln
end.