K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

15 tháng 1 2017

kho qua a co lam nha 

29 tháng 7 2021

uses crt;

var f,g:text;

n,i,m,k,j:integer;

a:array[1..10000] of integer;

const fi='BAI2.INP'; fo='BAI2.OUT';

begin

assign(f,fi); reset(f);

assign(g,fo); rewrite(g);

readln(f,n);

for i:=1 to n do

readln(f,a[i]);

for i:=1 to n do

begin

m:=a[i];

for j:=i+1 to n do

if odd(m+a[j])=false then k:=k+1;

end;

write(g,k);

close(f);

close(g);

end.

 

 

Câu 17. Sắp xếp các số nguyên: theo thứ tự tăng dần là:       Câu 18. Số nguyên đứng liền trước số đối của số 3 là:A. 2     B. -2    C. -4     D. 4    Câu 19. Kết quả phép tính: là:     B. 16                C. -4     D. 4    Câu 20. Số x thỏa mãn là:A. 14    B. -14     C. 6    D. -6Câu 21. Giá trị của hiệu: là:A. 1190    B. -340    C. 340    D. 0Câu 22. Các bội của 4 lớn hơn và nhỏ hơn 12 là:         C. 0;4;8    D. Câu 23. Thực hiện...
Đọc tiếp

Câu 17. Sắp xếp các số nguyên: theo thứ tự tăng dần là:

     

Câu 18. Số nguyên đứng liền trước số đối của số 3 là:

A. 2     B. -2    C. -4     D. 4    

Câu 19. Kết quả phép tính: là:

     B. 16                C. -4     D. 4    

Câu 20. Số x thỏa mãn là:

A. 14    B. -14     C. 6    D. -6

Câu 21. Giá trị của hiệu: là:

A. 1190    B. -340    C. 340    D. 0

Câu 22. Các bội của 4 lớn hơn và nhỏ hơn 12 là:

         C. 0;4;8    D.

Câu 23. Thực hiện phép tính ta được:

1    B. 9    C.- 9    D.

Câu 24. So sánh ba số nguyên: 0 ; 3 và có kết quả là:

              

Câu 25. Trong hình lục giác đều thì:

A. Các góc bằng nhau và bằng 600.    B. Các góc bằng nhau và bằng 900.

C. Đường chéo chính bằng đường chéo phụ.    D. Các đường chéo chính bằng nhau.

Câu 26. Trong các hình dưới đây, hình  nào là hình thang cân ?




 

    (1)                          (2)                              (3)                            (4)

A. Hình 1    B. Hình 2    C. Hình 3    D.Hì

2
12 tháng 1 2022

-7; -2; 0; 3; 5

1 tháng 8 2023

-7; -2; 0; 3; 5

Mn giúp mik bt Tin Học với ạ..! Mn lm đc bài nào thì làm nha ...!Câu 1 (7,0 điểm): Số chính phương.Cho trước số nguyên dương N (0< N≤ 106 ). Yêu cầu: Tìm số nguyên dương K nhỏ nhất sao cho tích của K và N là một số chính phương. Dữ liệu vào: File CP.INP chứa số N. Dữ liệu ra: File CP.OUT ghi số nguyên K tìm được.Câu 2 (6,0 điểm): Dòng lớn nhất.Cho một tệp tin gồm nhiều dòng. Trên mỗi dòng chứa...
Đọc tiếp

Mn giúp mik bt Tin Học với ạ..! Mn lm đc bài nào thì làm nha ...!

Câu 1 (7,0 điểm): Số chính phương.

Cho trước số nguyên dương N (0< N≤ 106 ). Yêu cầu: Tìm số nguyên dương K nhỏ nhất sao cho tích của K và N là một số chính phương. Dữ liệu vào: File CP.INP chứa số N. Dữ liệu ra: File CP.OUT ghi số nguyên K tìm được.

Câu 2 (6,0 điểm): Dòng lớn nhất.

Cho một tệp tin gồm nhiều dòng. Trên mỗi dòng chứa một xâu kí tự chỉ gồm các kí tự chữ cái và chữ số, độ dài của mỗi xâu không quá 255 kí tự.

Yêu cầu: Đưa ra dòng có nhiều kí tự chữ cái nhất, nếu có nhiều dòng thỏa mãn thì đưa ra dòng đầu tiên có nhiều kí tự chữ cái nhất. Dữ liệu vào: File DLN.INP gồm:

+ Dòng đầu ghi số N là số lượng dòng chứa các xâu kí tự.

+ N dòng tiếp theo: mỗi dòng ghi một xâu kí tự. Dữ liệu ra: File DLN.OUT ghi ra dòng có nhiều kí tự chữ cái nhất, nếu có nhiều dòng thỏa mãn thì đưa ra dòng đầu tiên có nhiều kí tự chữ cái nhất.

Câu 3 (4,0 điểm): Dãy con đối xứng.

Một dãy số liên tiếp gọi là dãy đối xứng nếu đọc các số theo thứ tự từ trái sang phải cũng giống như khi đọc theo thứ tự từ phải sang trái. Cho dãy số A gồm N số nguyên dương: a1, a2,..., aN (1≤ N≤ 10000; 1≤ ai≤ 32000; 1≤ i≤ N)

Yêu cầu: Hãy tìm dãy con đối xứng dài nhất của dãy A. Nếu có nhiều dãy con thoả mãn thì lấy dãy con xuất hiện đầu tiên trong dãy A. Dữ liệu vào: File DX.INP gồm 2 dòng:

- Dòng 1: ghi số nguyên dương N.

- Dòng 2: ghi N số nguyên dương lần lượt là giá trị của các số trong dãy A, các số được ghi cách nhau ít nhất một dấu cách.

Dữ liệu ra: File DX.OUT ghi dãy tìm được trên cùng một dòng, các số được ghi cách nhau một dấu cách.

Câu 4 (3,0 điểm): Dãy nguyên tố.

Cho một dãy số B gồm n số nguyên dương (n ≤ 1000), mỗi phần tử trong dãy có giá trị không quá 30000. Yêu cầu:

+ Tìm dãy con dài nhất (liên tiếp hoặc không liên tiếp) các phần tử là những số nguyên tố có giá trị tăng dần của dãy B và thứ tự của các phần tử không đổi so với ban đầu. Ví dụ: Dãy 8 phần tử {4, 2, 5, 6, 3, 3, 7, 9} có dãy con nguyên tố tăng dài nhất là {2, 5, 7}.

+ Nếu có nhiều dãy con thoả mãn thì lấy dãy con xuất hiện đầu tiên trong dãy B. Dữ liệu vào: File NT.INP gồm 2 dòng:

- Dòng 1: Ghi số nguyên dương n.

- Dòng 2: Ghi n số nguyên dương, các số được ghi cách nhau một dấu cách. Dữ liệu ra: File NT.OUT ghi dãy con tìm được trên cùng 1 dòng, giữa 2 phần tử liền kề trong dãy có một dấu cách.

0
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ư...
Đọc tiếp

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

0

Dưới đây là mã chương trình Pascal để sắp xếp dãy số theo yêu cầu đã cho:

```pascal
program sorting;

const
MAX_N = 1000;

var
N, i, j, temp: integer;
arr: array[1…MAX_N] of integer;
oddArr, evenArr: array[1…MAX_N] of integer;
oddCount, evenCount: integer;
inputFile, outputFile: text;

begin
// Mở file input và đọc dữ liệu
assign(inputFile, 'sorting.inp');
reset(inputFile);
readln(inputFile, N);
for i := 1 to N do
read(inputFile, arr[i]);
close(inputFile);

// Sắp xếp mảng theo yêu cầu
oddCount := 0;
evenCount := 0;
for i := 1 to N do
begin
if arr[i] mod 2 = 1 then
begin
oddCount := oddCount + 1;
oddArr[oddCount] := arr[i];
end
else
begin
evenCount := evenCount + 1;
evenArr[evenCount] := arr[i];
end;
end;

// Sắp xếp mảng số lẻ tăng dần
for i := 1 to oddCount - 1 do
for j := i + 1 to oddCount do
if oddArr[i] > oddArr[j] then
begin
temp := oddArr[i];
oddArr[i] := oddArr[j];
oddArr[j] := temp;
end;

// Sắp xếp mảng số chẵn giảm dần
for i := 1 to evenCount - 1 do
for j := i + 1 to evenCount do
if evenArr[i] < evenArr[j] then
begin
temp := evenArr[i];
evenArr[i] := evenArr[j];
evenArr[j] := temp;
end;

// Mở file output và ghi kết quả
assign(outputFile, 'sorting.out');
rewrite(outputFile);
for i := 1 to oddCount do
write(outputFile, oddArr[i], ' ');
writeln(outputFile);
for i := 1 to evenCount do
write(outputFile, evenArr[i], ' ');
close(outputFile);
end.
```

Bạn có thể sao chép mã chương trình trên vào một tệp tin có tên `sorting.pas`, sau đó tạo một tệp tin `sorting.inp` và nhập dữ liệu theo định dạng đã cho. Chạy chương trình và kết quả sẽ được ghi vào tệp tin `sorting.out`.

var i,n:longint; a:array[1..1000] of longint;

begin

readln(n);

for i:=1 to n do read(a[i]);

for i:=1 to n do

     if a[i] mod 2=0 then 

         begin

              inc(k);

              b[k]:=a[i];

         end

else

begin

inc(t);

c[t]:=a[i];

end;

for i:=1 to k-1 do

for j:=i+1 to k do

if b[i]<b[j] then

begin

d:=b[i];

b[i]:=b[j];

b[j]:=d;

end;

for i:=1 to  t-1 do

for j:=i+1 to t do

if c[i]>c[j] then

begin

d:=c[i];

c[i]:=c[j];

c[j]:=d;

end;

for i:=1 to k do write(b[i],' ');

for i:=1 to t do write(c[i],' ');

end.

22 tháng 1 2022

Các số cần tìm có dạng abcd

Mà mỗi chữ số đứng sau hơn số đứng trước 2 đơn vị nên

các số cần tìm là: 1357,2468,3579,.....

(Còn nhiều lắm)

22 tháng 1 2022
Kb ko bé sói