uses crt;
var i,n,k,m: longint;
a:array[1..100000] of longint;
begin
clrscr;
write('Nhap n: ');readln(n);
write('Nhap k: ');readln(k);
while n<>0 do
begin
m:=n mod 10;
n:=n div 10;
i:=i+1;
a[i]:=m;
end;
if k<i then write(a[k]) else write('Ko tim duoc');
readln
end.
Viết chương trình cho nhập hai số tự nhiên N và k. Hãy cho biết chữ số thứ k tính từ trái sang phải trong số N là số mấy? nếu k lớn hơn độ dài của N hoặc k bằng 0 thì thông báo không tìm được.
Ví dụ 1: Với N và k được nhập: N = 65932, k = 4
Kết quả tìm được là 3.
Ví dụ 2: Với N và k được nhập: N = 65932, k = 10
Kết quả tìm được là -1 ( k lớn hơn độ dài số N).
(giải thích từng bước giúp nha)
số tự nhiên n có k chữ số được gọi là số amstrong nếu N bằng tổng các lũ thừa bậc k của các chữa số của nó vd:123=\(1^3+2^3+3^3\)
Khởi động phần mềm Turbo Pascal rồi viết chương trình nhận biết một số tự nhiên N được nhập vào từ bàn phím có phải số nguyên tố hay không? *Yêu cầu: 1) viết chương trình như trên 2) em hãy dịch và sửa lỗi chương trình(nếu có)
Cho dãy số nguyên gồm N phần tử a 1 , a 2 , ..., a N .
(1 ≤ N ≤ 100, 0 ≤ a i ≤ 32767, 1 ≤ i ≤ N)
Yêu cầu: Hãy tìm số K, là số lượng lớn nhất các phần tử liên tiếp có giá trị bằng 0
trong dãy số trên.
Dữ liệu vào: Nhập số tự nhiên N và dãy số a 1 , a 2 , ..., a N từ bàn phím.
Dữ liệu ra: In ra màn hình số K tìm được.
Ví dụ: Nhập vào từ bàn phím N = 13, giá trị các phần tử của dãy số lần lượt là:
2 0 0 5 8 0 0 0 6 0 7 8 1
In ra màn hình kết quả K = 3
viết chương trình tính tổng n số tự nhiên : S =1+2+3+...+ n, với n là số tự nhiên được nhập từ bàn phím ( có sử dụng khai báo biến mảng )
1. Viết chương trình tính tổng các số nguyên tố từ 1 đến 100 2.Số nguyên dương P được gọi là ước thực sự của số nguyên n nếu n chia hết cho P và P khác 1 và khadc chính số n . Viết thuật toán và chương trình nhập số tự nhiên n và tính tổng của nó
Số tự nhiên N có k chữ số được gọi là số AmStrong nếu N bằng tổng các lũy thừa bậc
k của các chữ số của nó:
Ví dụ: Số 153 có 3 chữ số và 153 = 1 3 + 5 3 + 3 3 nên nó là số AmStrong.
Hãy viết chương trình in ra các số Amstrong nhỏ hơn hoặc bằng n với n được nhập từ
bàn phím.
MN ƠI, HELP ME!!!
Bài 1:viết chương trình pascal sử dụng biến mảng nhập từ bàn phím các phần tử của một dãy số độ dài dãy số được nhập từ bàn phím in ra màn hình số lớn nhất của dãy số
Bài 2
i :=2,k :=3;
for i = 1 to 5 do
begin
j:=j+1 ; k :=k+j;
end;
write('j=', j); write('k=',k);
viết các lần lặp cho đoạn chương trình trên và cho biết giá trị cuối cùng của i; j ; k là bao nhiêu?
giúp e với ạ,mai e ktra học kì rồi
please!!!!!!!!!!!!!!!
Để chọn những học sinh có tố chất lập trình tham gia đội tuyển HSG môn Tin của trường, cô Minh đưa ra một bài tập như sau: "Có n số tự nhiên khác nhau, các em hãy viết chương trình chọn k số bất kỳ (0 < k \(\le\) n) có trong dãy sao cho tổng bằng m".
Chú ý: các cách chọn là hoán vị của nhau chỉ tính là 1 cách.
Ví dụ: m = 10, với cách chọn 3 số 4, 5, 1 chúng ta có các cách chọn như sau:
4 + 5 + 1 = 4 + 1 + 5 = 5 + 4 + 1 = 5 + 1 + 4 = 1 + 4 + 5 = 1 + 5 + 4 = 10.
Tất cả các cách trên được tính là một cách.
Dữ liệu vào từ file DOEM.inp bao gồm:
- Dòng đầu tiên ghi hai số n, m cách nhau một khoảng trắng \(\left(0< n\le100,0< m\le2.10^9\right)\).
- Dòng thứ hai ghi n số, mỗi số cách nhau một khoảng trắng.
Dữ liệu ra file DOEM.out: ghi số lượng cách chọn k số thoả điều kiện.
Ví dụ:
| DOEM.inp | DOEM.out |
5 10 | 2 |
8 23 | 0 |
Giải thích:
- Với 5 số: 4, 7, 5, 1, 3 có 2 cách chọn là: 4 + 5 + 1 = 7 + 3 = 10.
- Với 8 số: 4, 2, 6, 8, 10, 40, 20, 30 không có cách chọn thoả điều kiện.
