Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
Dữ liệu nhập: Nhập từ bàn phím
Dữ liệu xuất: Xuất ra File BAI.out.
Ví dụ 1:
Nhập: 12
File BAI.out:
Số 12 là bội của 1 + 2
Ví dụ 2:
Nhập: 25
File BAI.out:
Số 25 không là bội của 2 + 5, số nguyên dương nhỏ hơn gần số 25 nhất là số 24 thỏa mãn tính chất trên (Vì số 24 là bội của 2 + 4)
Hãy giúp mọi người biết câu trả lời này thế nào?
Uses crt;
Var n,i:longint;
function test(a:int64):boolean;
Var t,b:longint;
Begin
t:=0;
b:=a;
While a<>0 do
Begin
t:=t+a mod 10;
a:=a div 10;
end;
If (b mod t=0) then exit(true) else exit(false);
end;
Begin
readln(n);
For i:=n downto 1 do
If test(i) then Begin Write(i); break; end;
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin