Câu 1Hai đường thẳng cắt nhau là hai đường thẳng có.... điểm chung.Câu 2:Tập hợp C = {Bưởi, cam, chanh, táo, đào, mơ, mận, mít, hồng} có .... phần tử.Câu 3:Với n là số tự nhiên thỏa mãn n^2 = 256 .Khi đó n = ....Câu 4:Cho số a nguyên dương khi đó kết quả của phép tính ( 0 : 2a ) bằng .......Câu 5:Có tất cả ..... số có 5 chữ số.Câu 6:Kết quả của phép tính:120-5(20-2x3^2)^2 -6^3:6 bằng...
Đọc tiếp
Câu 1
Hai đường thẳng cắt nhau là hai đường thẳng có.... điểm chung.
Câu 2:
Tập hợp C = {Bưởi, cam, chanh, táo, đào, mơ, mận, mít, hồng} có .... phần tử.
Câu 3:
Với n là số tự nhiên thỏa mãn n^2 = 256 .Khi đó n = ....
Câu 4:
Cho số a nguyên dương khi đó kết quả của phép tính ( 0 : 2a ) bằng .......
Câu 5:
Có tất cả ..... số có 5 chữ số.
Câu 6:
Kết quả của phép tính:120-5(20-2x3^2)^2 -6^3:6 bằng ........
Câu 7:
Từ ba chữ số 0; 5; 9, ta có thể viết tất cả ...... số có ba chữ số, trong mỗi số các chữ số đều khác nhau.
Câu 8:
Biết rằng số bị chia là 236, số dư là 15, số chia là số tự nhiên có hai chữ số. Vậy số chia có thể là .....
Câu 9:
Cho số nguyên n , biết n thỏa mãn: n^2 + 3n-16 chia hết n+3 Vậy giá trị nhỏ nhất của n là .....
Câu 10:
Tổng số trang của 8 quyển vở loại 1; 9 quyển vở loại 2 và 5 quyển vở loại 3 là 1980 trang.Số trang của 3 quyển vở loại 2 chỉ bằng số trang của 2 quyển vở loại 1.Số trang của 4 quyển vở loại 3 bằng số trang của 3 quyển vở loại 2.Tính số trang của mỗi quyển vở loại 2.
Trả lời: Số trang của mỗi quyển vở loại 2 là ............ trang.
program tim_nguon_nho_nhat;
const
MAX_NUMBER = 10000;
var
M, nguon_nho_nhat: Integer;
function TinhTongChuSo(num: Integer): Integer;
var
sumOfDigits: Integer;
begin
sumOfDigits := 0;
while num > 0 do
begin
sumOfDigits := sumOfDigits + (num mod 10);
num := num div 10;
end;
TinhTongChuSo := sumOfDigits;
end;
function TimNguonNhoNhat(M: Integer): Integer;
var
N, M_temp, M_digits, nguon_nho_nhat: Integer;
begin
M_temp := M;
nguon_nho_nhat := MAX_NUMBER;
for N := 1 to M_temp do
begin
M_digits := TinhTongChuSo(N) + N;
if M_digits = M_temp then
begin
if N < nguon_nho_nhat then
nguon_nho_nhat := N;
end;
end;
if nguon_nho_nhat = MAX_NUMBER then
TimNguonNhoNhat := 0
else
TimNguonNhoNhat := nguon_nho_nhat;
end;
begin
Readln(M);
nguon_nho_nhat := TimNguonNhoNhat(M);
if nguon_nho_nhat = 0 then
Writeln('0')
else
Writeln('Nguon nho nhat cua ', M, ' la ', nguon_nho_nhat);
end.