Cho hai số nguyên dương N và K. Có bao nhiêu số nguyên dương không vượt quá N có tổng các chữ số chia hết cho K.
Ví dụ 1: N = 100; K = 3 thì kết quả là 33
Ví dụ 2: N = 22; K = 4 thì kết quả là 5.
số nguyên dương k được gọi là số may mắn nếu k chia hết cho tổng các chữ số của nó . Ví dụ 12 có tổng các chữ số là 3 và 12 chia hết cho 3 nên 12 là số may mắn.số 11 có tổng các chữ số là 2 và 11 không chia hết cho 2 nên 11 không phải là số may mắn.
Viết chương trình cho phép nhập số nguyên dương n từ bàn phím rồi thực hiện.
a/ cho biết có bao nhiêu số may mắn nhỏ hơn n
b/ in ra các số nhỏ nhất lớn hơn n và là số may mắn
(Mọi người làm bằng pascal giúp mình)
Viết chương trình nhập vào 1 dãy số nguyên dương có n phần tử (n là số nguyên dương nhập từ ban phím), xuất dãy số ra màn hình. Cho biết dãy số có bao nhiêu số chính phương. Số chính phương là số khi ta rút căn bậc 2 có kết quả là số nguyên. Ví dụ như số 4, 9, 16, 25, 36,.... Sắp xếp dãy số tăng dần. Xuất dãy số sau khi sắp xếp. Lưu ý: Các chức năng của chương trình đều được thực hiện bằng hàm. Ví dụ như chức năng nhập, xuất, kiểm tra chính phương, ...
bạn hỏi khó thế, đây mới là phần cho lớp 8 thôi mà
Cho bảng gồm một dòng và n cột .
Yêu cầu: Đếm xem bảng có bao nhiêu hình chữ nhật thỏa mãn:
- Chiều rộng một ô;
- Chiều dài không quá k ô, với k cho trước.
Dữ liệu nhập từ bàn phím gồm hai số nguyên dương n và k (1 ≤ k, n ≤ 105).
Kết quả ghi ra màn hình số hình chữ nhật của bảng có chiều rộng một ô, chiều dài không quá k ô.
ta có n - k + 1 ô full k ô, k - 1 ô còn lại thì lần lượt là tổng từ 1->k - 1
Đây là đáp án đúng;
\(\left(k\times n\right)-\dfrac{\left(k-1\right)\times k}{2}\)
Một số được gọi là siêu nguyên tố nếu nó là số nguyên tố và có thể biểu diễn được thành tổng của hai số nguyên tố khác”.
Ví dụ: 5 là số siêu nguyên tố vì 5 = 2 + 3.
Cho số nguyên dương . Hỏi có bao nhiêu số siu nguyên tố không vượt quá ?
pascal
Bài 4: Tìm số dư của phép chia cho 9. CHIA9.PAS Cho một số nguyên dương N có M chữ số. Yêu cầu: Tìm số dư của phép chia số N cho 9. Dữ liệu vào: Cho trong file văn bản CHIA9.INP, có cấu trúc như sau: - Dòng 1: Ghi số nguyên dương M là số lượng chữ số của số N (1 ≤ M ≤ 100). - Dòng 2: Ghi M chữ số của số N, các chữ số được ghi liền nhau. Dữ liệu ra: Ghi ra file văn bản CHIA9.OUT, theo cấu trúc như sau: - Dòng 1: Ghi số nguyên dương Q, là số dư tìm được. Ví dụ: CHIA9.INP CHIA9.OUT 5 74283 6
Bài 5: Tìm số sát sau - SOSATSAU.PAS Cho số tự nhiên A có N chữ số. Hãy hoán vị các chữ số trong A để thu được số B thoả mãn đồng thời hai điều kiện sau: - B lớn hơn A. - B nhỏ nhất. Dữ liệu vào: Cho trong file SOSATSAU.INP có cấu trúc như sau: - Dòng 1: Ghi số N là số lượng chữ số của A (0a[i-1]. Do đoạn cuối giảm dần, điều này thực hiện bằng cách tìm từ cuối dãy lên đầu gặp chỉ số k đầu tiên thỏa mãn a[k]>a[i-1] (có thể dùng tìm kiếm nhị phân) - Đảo giá trị a[k] và a[i-1] - Lật ngược thứ tự đoạn cuối giảm dần (từ a[i] đến a[k]) trở thành tăng dần + Nếu không tìm thấy tức là toàn dãy đã sắp xếp giảm dần, đây là hoán vị cuối cùng.
Bài 2. MẬT KHẨU. Cu Tí thường xuyên tham gia thi lập trình trên mạng. Vì đạt được thành tích cao nên Tí được gửi tặng một phần mềm diệt virus. Nhà sản xuất phần mềm cung cấp cho Tí một mã số là một dãy gồm các bộ ba chữ số ngăn cách nhau bởi dấu chấm và có chiều dài không quá 255 (kể cả chữ số và dấu chấm). Để cài đặt được phần mềm, Tí phải nhập vào mật khẩu của phần mềm. Mật khẩu là một số nguyên dương M được tạo ra bằng cách tính tổng giá trị các bộ ba chữ số trong dãy mã số, các bộ ba này được đọc từ phải sang trái. - Yêu cầu: Cho biết mã số của phần mềm, hãy tìm mật khẩu của phần mềm đó. - Dữ liệu vào: Cho từ tệp văn bản có tên BL2.INPgồm một dòng chứa xâu ký tự S (độ dài xâu không quá 255 ký tự) là mã số của phần mềm. - Kết quả: Ghi ra tệp văn bản có tên BL2.OUTgồm một số nguyên là mật khẩu tìm được. MK.INP MK.OUT 123.234 257
Bài 6: Biến đổi số BIENDOI.PAS Cho một số nguyên dương M có K chữ số (0 < M; 1 ≤ K ≤ 200). Người ta thực hiện biến đổi số M bằng cách xóa đi trong M các chữ số 0 và sau đó sắp xếp các chữ số còn lại theo thứ tự không giảm của giá trị từng chữ số. Gọi số nguyên dương N là số thu được sau khi thực hiện biến đổi số M. Yêu cầu: Hãy tìm số nguyên dương N. Dữ liệu vào: Nhập vào từ tệp biendoi.inp số M Dữ liệu ra: Ghi ra tệp biendoi.out số N Ví dụ: M=3880247 N=234788
- Vì N là số tự nhiên có hai chữ số nên đặt \(N=\overline{ab}\) \(\left(0< a\le9;0\le b\le9;a,b\in N\right)\)
Ta có \(S\left(N\right)=S\left(\overline{ab}\right)=ab\) ; \(P\left(N\right)=P\left(\overline{ab}\right)=a+b\)
Vì \(N=S\left(N\right)+P\left(N\right)\) nên \(\overline{ab}=ab+a+b\)
\(\Rightarrow10a+b=ab+a+b\)
\(\Rightarrow9a=ab\Rightarrow b=9\) (vì a khác 0)
Vậy chữ số hàng đơn vị của N là 9 ---> chọn E
Khi chia hai số nguyên thì kết quả nhận được có luôn là một số nguyên hay không ? Cho ví dụ
-khi chia 2 số nguyên cho nhau kết quả nhận đc có thể là số nguyên, có thể k
VD: 4 : 5 =0,8
4:2=2
Khi chia 2 số nguyên cho nhau thì kết quả nhân được không luôn là một số nguyên.
Ví dụ: \(9:7=\frac{9}{7};4:5=\frac{4}{5};.....\)
Còn nhiều lắm!
Viết chương trình hiển thị số lượng ước lớn nhất trong các số tự nhiên nhỏ hơn N( N nguyên dương) Ví dụ: n=5 => kết quả số lượng ước lớn nhất là 3
uses crt;
var n,i,m,max:integer;
function kt(n:integer):integer;
var j,k:integer
begin
k:=0;
for j:=2 to n do
if (n mod j)=0 then k:=k+1;
kt:=k+1;
end;
begin
readln(n);
if n=1 then write(1)
else
begin
max:=kt(2);
for m:=3 to n do
if max<kt(m) then max:=kt(m);
write(max);
end;
end.
Cho số nguyên dương N (N ≤ 104). Gọi M là tổng của N với các chữ số của nó. Khi đó ta gọi N là nguồn của M.
Ví dụ : N = 245, khi đó 245 + 2 + 4 + 5 = 256. Như vậy 245 là nguồn của 256. Có những số không có nguồn và có những số có nhiều nguồn. Ví dụ, số 216 có 2 nguồn là 198 và 207.
4). Hãy tìm nguồn nhỏ nhất của nó. Nếu M không có nguồn thì ghi ra 0.
Input : gồm một số M duy nhất
Output : gồm một số duy nhất là nguồn của M hoặc số 0 nếu M không có nguồn.
Input | Output |
216 | 198 |
Làm pascal nha mn giúp mình với
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.