- Ebook Giải thuật và lập trình Lê Minh Hoàng
- Các thuật toán sắp xếp trong Pascal

Bài tập Pascal - Giải bài tập Pascal (cơ bản)



Nhằm đáp ứng nhu cầu hỏi đáp về Pascal của anh em, đây sẽ là khu vực hỏi đáp, giải các bài tập về Pascal. Trước khi đặt câu hỏi, bạn cần lưu ý những điều sau:


- Nội dung câu hỏi phải liên quan tới Pascal.
- Đây là khu vực giải các bài tập cơ bản, các bài tập nâng cao (đệ quy quay lui, quy hoạch động...) không được phép post tại khu vực này (sẽ có mục giải bài tập Pascal nâng cao riêng).

- Nếu được, hãy ân vào biểu tượng  ở phần bên phải của trang web  để ủng hộ website phát triển (nếu chưa ấn).



«Cũ nhất  
‹Cũ hơn
  201 – 400 trên 459   Mới hơn›   Mới nhất»
Unknown nói...

Cho N và dãy a1,a2....an và số k.. Tìm i cuối cùng sao cho ai chia hết cho 3
viết thuật toán giải thế nào ad


Unknown nói...

Cho N và dãy a1,a2....an và số k.. Tìm i cuối cùng sao cho ai chia hết cho 3
viết thuật toán giải giúp e bài này với ad ....hôm nay KT 15 phút ... tks nhiều ạ


Nặc danh nói...

giải giúp với:
Cho một dãy số có thể có phần thập phân
YÊU CẦU: Tính tổng các kí số có giá trị lẻ trong số đó.

Dữ liệu vào:Một dòng n kí số liên tiếp, dấu chấm(.) phân cách phần thập và m kí số thập phân tiếp theo.(1<n<=32,0<=m<=10)


Unknown nói...

ad có on ko vậy làm hộ mình bài này với


Unknown nói...

moi nguoi oi goi y ho em bai nay
Giải mã số: Các chữ số từ 1 đến 9 được mã hóa dưới dạng các từ chỉ chứa các ký tự a,b và c theo quy tăc sau:
Chữ số 1 2 3 4 5 6 7 8 9
mã a b cc bbc cbc abc bac aac cac
Ví dụ số 132 sẽ được viết thành accb.
Yêu cầu: từ xâu ký tự cho trước, hãy tìm số nguyên dương tương ứng.
Dữ liệu: Vào từ bàn phím xâu chứa không quá 100 ký tự a,b,c.
Kết quả: Đưa ra màn hình số tương ứng hoặc -1 nếu xâu không tương ứng với một số nguyên nào.
Ví dụ: Nhập vào abcac thì kết quả là 129.


Unknown nói...

Tính S=1/2+2/3+3/4...N-1/N+N/N+1 giúp mình với!!


Chut Thanh Hà nói...

mọi người cho em biết lời giải:
viết chương trình nhập 2 số x, y. in ra màn hình giá trị x, y tăng dần.
em xin cảm ơn


Unknown nói...

mọi người giả zùm mình với
nhập vào một chuỗi st, đếm xem trong st :
Có bao nhiêu chữ cái A->Z, a->z;
Có bao nhiêu chữ số : 0. .9
Có bao nhiêu ký tự trắng
Có bao nhiêu ký tự khác
Trong số các loại ký tự trên loại nào là nhiều nhất?


Unknown nói...

mọi người giả zùm mình với
nhập vào một chuỗi st, đếm xem trong st :
Có bao nhiêu chữ cái A->Z, a->z;
Có bao nhiêu chữ số : 0. .9
Có bao nhiêu ký tự trắng
Có bao nhiêu ký tự khác
Trong số các loại ký tự trên loại nào là nhiều nhất?


Unknown nói...

giải giúp em bài này với ạ đề viết chương trình thực hiện : nhập một số a từ bàn phím , kiểm tra và thông báo ra màn hình a có chia hết cho 5 hay không ? Nếu không thì in thông báo dư bao nhiêu ?


Unknown nói...

mọi người giải zùm em bai nay với
nhập vào một chuỗi st, đếm xem trong st :
Có bao nhiêu chữ cái A->Z, a->z;
Có bao nhiêu chữ số : 0. .9
Có bao nhiêu ký tự trắng
Có bao nhiêu ký tự khác
Trong số các loại ký tự trên loại nào là nhiều nhất?


Anthony nói...

Bạn nào chỉ mình tính tổng của các phần tử trong mảng với


Unknown nói...

Giai giup minh bai nay voi: Viet chuong trinh xuat ra tat ca cac so nguyen to tu 1 den N.


Đinh Hoàng nói...

Các bác cho em hỏi bài này: Cho trước bảng số A gồm m hàng, n cột. Mỗi ô trong bảng số chứa một số nguyên dương gọi là giá trị của ô. Tất cả các ô (ít nhất là 2 ô) có cùng giá trị, kề cạnh hoặc kề đỉnh tạo thành một vùng số. Số lượng ô trong một vùng số gọi là diện tích của vùng số đó.
Yêu cầu: Tính số lượng vùng số có trong bảng A và diện tích của vùng số lớn nhất.
Dữ liệu: Vào từ tệp văn bản dulieu.inp. Dòng đầu chứa 2 số nguyên dương m, n mỗi số không vượt quá 100, trong m dòng tiếp theo, mỗi dòng chứa n số nguyên, mỗi số không vượt quá 100.
Kết quả: Ghi ra tệp văn bản ketqua.out. Dòng đầu ghi số lượng các vùng số có trong bảng A; dòng thứ hai ghi diện tích của vùng số lớn nhất.
Mong các bác giúp cho !


Unknown nói...

Mọi người giải hộ đề này với!
In ra tất cả các chữ số của số N.


Nặc danh nói...

Hay


Unknown nói...

Làm giúp e với ạ!
Dãy số A1, A2,..., AN được gọi là dãy số đặc biệt nếu nó thoả mãn các điều kiện:

 Là dãy số giảm dần;

 Với mỗi Ai thì Ai hoặc là số nguyên tố hoặc là ước của một trong các số từ A1 đến Ai-1.

Em hãy tìm dãy số đặc biệt dài nhất bắt đầu từ N.

Dữ liệu vào: Từ file văn bản DAYSO.IN là một số nguyên dương N (N < 10000).

Kết quả: Ghi ra file văn bản DAYSO.OUT là dãy số tìm được, các số ghi cách nhau bởi dấu cách.

Ví dụ:

DAYSO.IN DAYSO.OUT
12
12 11 7 6 5 4 3 2 1


Unknown nói...

gán xâu ntn ạ


Unknown nói...

Khi đào hầm Thủ Thiêm người ta dùng một Robot để đào, ban đầu người ta đào đường hầm 1 đơn vị độ dài sau đó đặt Robot xuống. Robot này được điều khiển bởi 2 lệnh là: C1 và N2.
- Lệnh C1 là đào thêm 1 đơn vị độ dài thì tốn 2 đơn vị năng lượng.
- Lệnh N2 là đào thêm một đoạn đường hầm bằng độ dài đang có thì tốn 4 đơn vị năng lượng.
Hãy viết chương trình ra lệnh cho Robot đào một đường hầm có độ dài k đơn vị độ dài với các lệnh là ít nhất và sự tiêu tốn năng lượng là thấp nhất. Biết ban đầu đường hầm dài 1 đơn vị độ dài.
Yêu cầu:
- Dữ liệu vào trong tập tin Robot.inp gồm một số k là độ dài đường hầm cần đào.
- Dữ liệu ra trong tập tin Robot.out gồm hai dòng:
+ Dòng đầu là số năng lượng ít nhất đã tiêu tốn cho Robot đào hầm.
+ Dòng tiếp theo chứa các lệnh C1 hoặc N2, mỗi lệnh cách nhau 1 khoảng trắng.
Ví dụ:
Robot.inp
10
Robot.out
12
C1 N2 C1 N2
Giúp em bài này với ! thanks


Unknown nói...

ai có thể nói giúp mình thuật toán được không ?


Unknown nói...

Giải bài tập Pascal sau: Cho trước 2 dãy số nguyên > Hãy tìm các số thuộc dãy thứ nhất mà không thuộc dãy thứ 2
VD: 3 1 3 4 2 4 12(Dãy thứ 1)
4 15 43 1 1 15 1(Dãy thứ 2)
--> Các số cần tìm là: 3 3 2 12


Unknown nói...

Cho em hỏi : hãy viết chương trình của pascal để nhập tên của 1 sinh viên và điểm trung bình(đtb).tính và in học bổng (hb) của sv theo qtắc
Hb=300 nếu đtb >=9.0
....=150........ 7.0<=đtb<=7.9
.....=200........8.0<=.....<=8.9
......=0....... đtb <= 7.0


Unknown nói...

Cho em xin code pascal cua bai nay:
1)Kiem tra mot so co la nguyen to hay khong!
2)Neu la nguyen to thi dao nguoc hai so lai voi nhau(vd: 31 -> 13 ) neu sau khi dao nguoc van la nguyen to thi Write ra "Day la cap nguyen to doi!"
Het! Em bi bí o khuc dao nguoc hai so lai.


Unknown nói...

Mình có bài tập muốn hỏi giải giúp mình với:
Viết chương trình nhập vào 3 số tự nhiên khác 0, tìm BSCNN của ba số đó.


Unknown nói...

Viết hàm đếm các số lẻ của một số nguyên dương n>0
function dem_le(n:integer):integer;


Unknown nói...

Viết hàm đếm các số lẻ của một số nguyên dương n>0
function dem_le(n:integer):integer;


Unknown nói...

ai giúp mình với bài thực hành 8(bài 2 tr81-sgk)tin học 8 đươc khong ạ cảm ơn rất nhìu


Unknown nói...

Giúp mk với
Viết Ct pascal nhập vào mảng số nguyên bất kì in ra màn hình các số vừa là số dương vừa là số chẵn


Unknown nói...

giup minh voi admin, bai toan nay viet ve cai gi vay?

begin
dem:=0;
for i:=1 to n do if a[i]>=0 then dem:=dem+1; Write(dem);


Unknown nói...

Bài 1: Trò chơi xếp số
Cho 1 dãy số có 2k phần tử có giá trị lần lượt từ 1, 2, 3, 4,… 2k (ghi từ trái sang phải). Người ta lần lượt gấp đôi dãy số theo chiều từ phải sang trái (độ dài sẽ giảm một nửa, số lớp sẽ tăng gấp đôi) cho đến khi dãy số có 2k lớp. Hỏi số nguyên dương N (1<=N<=2k) nằm ở lớp thứ mấy? (tính từ dưới lên). Cho k nguyên dương (k<=30)
VD: xét trường hợp k=3,N=5;
Bước 1: 1 2 3 4 5 6 7 8
Bước 2: 8 7 6 5
1 2 3 4
Bước 3: 4 3
5 6
8 7
1 2
Bước 4:
2
7
6
3
4
5
8
1
Dữ liệu vào: Nhập từ bàn phím 2 số nguyên dương k và N
Dữ liệu ra: Hiển thị kết quả màn hình là một số nguyên duy nhất chỉ số thứ tự lớp của số N.


Khánh Băng nói...

giúp e vs
viết chương trình nhập dãy n bất kì từ bàn phím sao cho các số vừa nhập là số chẳn


Khánh Băng nói...

giúp e vs
viết chương trình nhập dãy n bất kì từ bàn phím sao cho các số vừa nhập là số chẳn


Khánh Băng nói...

Giúp e vs
Viết chương trình nhập dãy n bất kì từ bàn phím sao cho các số vừa nhập là số chẳn


Unknown nói...

trong tệp dulieu.txt có chứa từng cặp số nguyên, hãy tính và nhập vào tệp kq.txt tổng từng cặp số nguyên đó
P.S: giải giúp e ạ :(


Unknown nói...

trong tệp dulieu.txt chứa các cặp số nguyên, viết chương trình tính tổng từng cặp số nguyên đó và ghi vào tệp kq.txt tổng từng cặp số nguyên đó


le van thanh nói...

cho mình hỏi thuật toán để phân tích một số nguyên thành hàng trăm hangf
chục và hang đơn vị vd :123=100+20+3


le van thanh nói...

cho mình hỏi thuật toán để phân tích một số nguyên thành hàng trăm hangf
chục và hang đơn vị vd :123=100+20+3


Unknown nói...

cho mình hỏi cách giải bài tạp này với:
câu 1:viết chương trình nhập vào 1 số nguyên từ bàn phím,kiểm tra xem số đó có phải là số hạnh phúc hay không?
câu 2:tìm tất cả các số hạnh phúc trong khoảng từ A-B
câu 3:tìm và in ra các cặp số hữu nghị trong khảng từ A-B
câu 4:tìm tất cả các số hoàn hảo có trong khoảng từ A-B
câu 5:tìm UCLN và BCNN của 2 số A và B????


Unknown nói...

cần giúp giải giùm em bài tập pascal nâng cao này với.
CHIA NHÓM

Xét một tập hợp gồm N phần tử (các phần tử được đánh số từ 1 đến N). Khi hoạt động, một phần tử có thể ảnh hưởng đến những phần tử khác. Để đo tính "độc lập" giữa 2 phần tử, người ta định nghĩa "khoảng cách" giữa 2 phần tử x, y là một số nguyên dương D(x, y) = D(y, x) sao cho khoảng cách này càng lớn thì độ độc lập giữa 2 phần tử càng cao. Trong một số công việc, người ta phải chia các phần tử thành những nhóm hoạt động riêng rẽ, vì vậy việc chia nhóm cần đảm bảo tính độc lập giữa các nhóm càng cao càng tốt. Độ "phân tách" D(A, B) giữa 2 nhóm A, B được định nghĩa như là khoảng cách nhỏ nhất giữa một phần tử của A và một phần tử của B:
D(A, B) = Min {D(x, y), x  A, y  B}
và độ "phân tách" D của một cách chia được gọi là độ phân tách của 2 nhóm "gần nhất" thuộc cách chia này:
D = Min {D(A, B)}
Bạn hãy viết một chương trình xác định độ phân tách lớn nhất có thể được, khi chia một tập hợp N phần tử với những khoảng cách đã cho, thành K nhóm.
Input File: NHOM.INP
- dòng đầu ghi 2 số N và K,
- dòng thứ i trong N dòng tiếp, i = 1, 2, ..., N ghi N số D(i, j), j = 1, 2, ..., N là khoảng cách giữa i và j. Chú ý D(i, j) = D(j, i); D(i, i) = 0.
Các số trên cùng một dòng được ghi cách nhau ít nhất một dấu trắng.
Output File: NHOM.OUT, gồm 1 dòng ghi độ phân tách tìm được.
Giá trị giới hạn: N không quá 200, K lớn hơn 1 và nhỏ hơn N, các giá trị D(i, j) là những số nguyên không âm, nhỏ hơn 32768.
Thí dụ:
NHOM.INP
4 2
0 4 5 2
4 0 3 6
5 3 0 3
2 6 3 0
NHOM.OUT
3
Mong các bạn (anh/chị) giải giúp em .

PS: vừa code vừa ý tưởng lun.
em cám ơn nhiều


Unknown nói...

Bài 3: Bạn An dùng 3 biến mảng lần lượt biểu diễn cước phí điện thoại, điện, dịch vụ Internet của gia đình mình trong năm vừa qua.
Hãy giúp bạn An viết chương trình Pascal thực hiện các nhiệm vụ sau:
a) Nhập số tiền chi cho ba dịch vụ từng tháng từ bàn phím.
b) Tính và in ra màn hình tổng số tiền mà gia đình An phải trả cho các dịch vụ này trong năm vừa qua.
c) Hãy cho biết dịch vụ nào có tổng chi lớn nhất?
d) Hãy cho biết trung bình mỗi tháng gia đình An phải trả bao nhiêu tiền cho các dịch vụ nói trên.


Unknown nói...

giúp em lập trình pascal với
tìm hình chữ nhạt có S lớn nhất khi bik chu vi của nó (dùng vòng lặp)


Unknown nói...

ct con:
function tong(n:longint):longint;
var t:longint;
begin
t:=0;
repeat
t:=t+(n mod 10);
n:=n div 10;
until(n=0);
tong:=t;
end;
Giai thuat:
str(m,s);
for i:=m downto m-(9*length(s)) do
if tong(i)=m then n:=i;

******************


Unknown nói...

Đọc thôg tin từ file data.inp với nội dug :
4rw1ssd
2eu5ellk
6c3cmnx
7thhgb
Xử lý vs chươg trìh pascal sao cho khi in ra file data.out với nội dung sau:
secrect
-Bạn đọc lại nội dung của 2 file giùm mình rồi giải giùm mình nhe... đề thi tỉnh TH trẻ 2016.... bị bí rùi ^ ^


Unknown nói...

Giải cho mình bài này vs
Nhập vào 1 mảng, xóa hết các số chia hết cho 5 trong mảng


Unknown nói...

cho em hỏi muốn viết phép nhân 2 số tự nhiên a,b mà b 3 chữ số theo cái kiểu đặt biểu thức theo hàng theo cột mà kết quả nó đúng hàng đúng cột với các số hạng thì làm sao ạ


Unknown nói...

cho em hỏi muốn viết phép nhân 2 số tự nhiên a,b mà b 3 chữ số theo cái kiểu đặt biểu thức theo hàng theo cột mà kết quả nó đúng hàng đúng cột với các số hạng thì làm sao ạ


Unknown nói...

cho em hỏi muốn viết phép nhân 2 số tự nhiên a,b mà b 3 chữ số theo cái kiểu đặt biểu thức theo hàng theo cột mà kết quả nó đúng hàng đúng cột với các số hạng thì làm sao ạ


Unknown nói...

Viết chương trình nhập vào một dãy số nguyên a1, a2, ..., an. Tìm trong dãy (a) một dãy con tăng dần dài nhất (có số phần tử lớn nhất) và in ra màn hình dãy con đó.


Unknown nói...

Ai giúp mình bài này với:
trên một bảng có các ô,người ta đặt m kí tự A liền nhau bên trái sau đó đặt một ô trống và đặt M kí tự B liền nhau.Hãy tìm cách chuyển với số lần ít nhất để thu được kết quả kí tự B chuyển qua bên trái ô trống và kí tự A chuyển qua bên phải ô trống.Mỗi lần được phép chuyển kí tự vào ô trống kế kí tự đó hoặc cách kí tự đó một ô.


Unknown nói...

ai giúp vơi


Maximus nói...

Nhập số n trong khoảng từ 2->10000 viết chương trình nhập vào số n và in ra màn hình các số nguyên tố từ 2-n


Unknown nói...

viết dùm mình chương trình tính tổng 4 số a,b,c,d


Unknown nói...

cho số nguyên n và dãy số nguyên A1,A2 ....An và số k, thoongb áo ra màn hình vị trí cuối cùng bằng k trong dãy nếu dãy không có thì thông báo không tìm thấy k trong dãy


Unknown nói...

ai j mình bai nay voi
VTC kiểm tra xem 2 số có phải là 2 số thân thiết ko?


Unknown nói...

giải giúp mình xóa số trúng
VD 1 22 22 22 5=>1 22 5


Unknown nói...

Cho dãy số nguyên A gồm N phần tử A1, A2, .., AN¬, tìm số cặp chỉ số i, j thỏa mãn:
với 1 ≤ i < j ≤ N
làm với tệp nha


Nặc danh nói...

Viết công thức nén 1 chuỗi theo quy luật: đếm số kí tự giống nhau và kều nhau, thay bằng kí tự đó và số kí tự giống, nếu số kí tự giống là 1 thì chỉ ghi kí tự.
VD: Nhập: AAABBCDDDD
Xuất: A3B2CD4
Ai giải dùm mình bài này với.


Unknown nói...

giup minh voi bai toan la
nhap mot day so nguyen, dua ra man hình ket quả săp xếp từ nhỏ đến lớn của các số chẵn trong dãy vừa nhập


Dương nói...

Nhập vào 5 số nguyên . in ra màn hình đếm xem có bao nhiêu số chia hết cho 3 , có ai bít giúp em mí ạ


Unknown nói...

giúp mìh với m.n
nhập 2 số nguyên m,n
tíh tổng và thông báo tổng các số nguyên là bội của 3 trong phạm vi từ m ->n


Unknown nói...

Lam hộ em bai này voi viet chương trinh tính tổng T=a2+b2


Unknown nói...

viet chuong trinh cho phep rut gon phan so do lam ho minh cai


Unknown nói...

help me, viết chương trình chuyển từ số tự nhiên nhập từ bàn phím sang hệ hexa


Unknown nói...

các thánh giúp em in ra màn hình số lần xuất hiện của các phần tử trong mảng


Unknown nói...

Giup với. : viet ct pascal nhập vào duy nhat 1 số n ở hệ thập phan và in ra tat ca cac hoan vi cua no. VD: nhập n=133 in ra 313, 331..


Blog test code nói...

còn ai k z


Q nói...

Một số nguyên dương được gọi là đẹp nểu tổng bình phương các chữ số trong nó (trong dạng biểu diễn thập phân) là một số nguyên tố
Ví dụ: 12 là số đẹp vì 12+22 = 5 là số nguyên tố
Các số đẹp được đánh số theo thứ tự tăng dần của giá trị, bắt đầu từ 1
Yêu cầu: Cho số nguyên n (1≤n≤1000000). Hãy tìm số đẹp thứ n
Dữ liệu: Vào từ file BEAUTY.INP
Dòng đầu tiên là số test n
n dòng tiếp theo ghi n test, mỗi test trên 1 dòng
Kết quả: Ghi vào file BEAUTY.OUT kết quả của mỗi test trong tệp BEAUTY.INP trên 1
dòng


Anh Phúc nói...

giải giúp em bài này đi em đang hc bồi dưỡng lớp 9 làm ts bài này bí quá nhờ các anh giúp dùm
Tổng n số nguyên
Cho dãy n số nguyên.
Yêu cầu: tìm tổng của các phần tử của từng dãy
Dữ Liệu vào file SONGUYEN.IPN gồm n dòng, mỗi dòng là 1 dãy số (mỗi dãy có tối đa 100 phần tử và mỗi phần tử có giá trị tuyệt đối không quá 30000; hai phần tử đứng kế sau nhau cách nhau ít nhất một khoảng trắng).
Kết quả: hi vào file SONGUYEN.OUT gồm n dòng mỗi dòng là 1 kết quả tìn đc tương ứng vs dữ liệu trong file input


Anh Phúc nói...

giải giúp em bài này đi em đang hc bồi dưỡng lớp 9 làm ts bài này bí quá nhờ các anh giúp dùm
Tổng n số nguyên
Cho dãy n số nguyên.
Yêu cầu: tìm tổng của các phần tử của từng dãy
Dữ Liệu vào file SONGUYEN.IPN gồm n dòng, mỗi dòng là 1 dãy số (mỗi dãy có tối đa 100 phần tử và mỗi phần tử có giá trị tuyệt đối không quá 30000; hai phần tử đứng kế sau nhau cách nhau ít nhất một khoảng trắng).
Kết quả: hi vào file SONGUYEN.OUT gồm n dòng mỗi dòng là 1 kết quả tìn đc tương ứng vs dữ liệu trong file input


Unknown nói...

Cho số tự nhiên n (n<1000)
a. Số n có bao nhiêu chữ số?
b. Tìm tổng các chữ số của n.
c. Tìm chữ số cuối và chữ số đầu của n
giải
program tong_so;
uses crt;
var a,b,c,n,s;integer;
begin
clrscr;
write('nhập vào số có 3 chữ số:');readln(n);
if a>99 then
begin
a:=n div 100;
b:=(n mod 100) div 10;
c:=(a mod 100) mod 10;
s:=a+b+c;
writeln('tong cac chu so cua no la: ',s);
readln;end;
else write('so vua nhap khong phai la so co 3 chu so');
readln;
end.


Unknown nói...

Cho số tự nhiên n (n<1000)
a. Số n có bao nhiêu chữ số?
b. Tìm tổng các chữ số của n.
c. Tìm chữ số cuối và chữ số đầu của n
giải
USES CRT;

VAR N,TAM,I:INTEGER;

S:STRING;

{-----------------------------------------------------------------------}

BEGIN

WRITE('Nhap so N (N<1000) : ');READLN(N);

IF (N>999) THEN WRITE('So qua lon') ELSE

BEGIN

STR(N,S);

WRITELN('So ',N,' co ',LENGTH(S),' chu so');

VAL(S[1],N);

WRITE('Tong cua ',S[1]);

FOR I:=2 TO LENGTH(S) DO

BEGIN

VAL(S[I],TAM);

WRITE(' va ',TAM);

N:=N+TAM;

END;

WRITE(' la ',N);

END;

READLN

END.


Nặc danh nói...

giải giúp em bài này đi em đang hc bồi dưỡng lớp 9 làm ts bài này bí quá nhờ các anh giúp dùm
Tổng n số nguyên
Cho dãy n số nguyên.
Yêu cầu: tìm tổng của các phần tử của từng dãy
Dữ Liệu vào file SONGUYEN.IPN gồm n dòng, mỗi dòng là 1 dãy số (mỗi dãy có tối đa 100 phần tử và mỗi phần tử có giá trị tuyệt đối không quá 30000; hai phần tử đứng kế sau nhau cách nhau ít nhất một khoảng trắng).
Kết quả: hi vào file SONGUYEN.OUT gồm n dòng mỗi dòng là 1 kết quả tìn đc tương ứng vs dữ liệu trong file input
help me hepl me


Unknown nói...

Cho xâu S có N ký tự chữ số. Hãy xóa đi K ký tự để xâu còn lại biểu diễn
một số bé nhất.


Unknown nói...

Cho xâu S có N ký tự chữ số. Hãy xóa đi K ký tự để xâu còn lại biểu diễn
một số bé nhất.


Unknown nói...

nhập vào 1 dãy số bất kì.tính tổng của dãy số đó.Việc tính tổng chỉ dừng lai đến khi nhập vào số 0


Unknown nói...

Giải hộ mình
nhập vào 1 dãy số bất kì.tính tổng của dãy số đó.Việc tính tổng chỉ dừng lai đến khi nhập vào số 0


Unknown nói...

cho em hỏi câu này với tìm số nguyên dương n lớn nhất thõa mãn s=1+2+3+...+n <a với a là số nguyên nhập từ bàn phím


manh nói...

viết ct nhập vào chiều cao của 3 bạn <ạ,b,c.rồi in ra kq biết chiều cao 3 bản khác nhau


Unknown nói...

giải giùm mình câu này với ạ:
nhập vào số nguyên dương M với điều kiện 10^4<M<10^9 viết chương trình :
1) Tính tổng các chữ số có trong M
2)số lượng các chữ số có trong M.....


Unknown nói...

1/lập mảng n số nguyên,in ra các số âm trên 1 dòng các số dương trên 1 dòng
2/tính tổng các phần tử ở vị trí lẻ
3/đếm số các phần tử chia hết cho 3
4/in ra các phần tử là số nguyên tố
5/nhập X số nguyên tìm kiếm X có trong mảng hay không
giúp e với


Đinh Đức Anh nói...

giúp mình bài này với : tính tổng số chẵn không âm


Unknown nói...

các bạn chỉ giúp mh câu này với,mh cảm ơn
viết thuật toán tính tổng N số nguyên dương nhập từ bàn phím


Unknown nói...

nhờ các ad giải hộ
tính diện tích hình thang cân bt 2 đáy và một góc anpha


Unknown nói...

nhờ các ad giải hộ nha
tính diện tích hình thang cân bt 2 đáy và một góc anpha


Unknown nói...

nhờ các ad giải hộ nha
tính diện tích hình thang cân bt 2 đáy và một góc anpha


TikTok Musicc Spectrum nói...

anh em nao giup vs
Tính tổng của các số tự nhiên chia hết cho 3 không vvuotwj qua N cho trước


Nặc danh nói...

em ko biet cai nay


Nặc danh nói...

Giúp mik làm đề thi pascal vs(viết chương trình tạo file input và output nha,thks):một tàu đánh cá của ngư dân BÌNH ĐỊNH đi câu cá ngừ đại dương ờ hoàng sa ,sau 1 tháng các ngư dận câu được n con cá ngừ đại dương :Xuất ra trọng lượng của con cá lớn nhất ;Đếm xem có bao nhiêu con cá lớn hơn 80 và nhỏ hơn 100 kg,Xuất đếm; tính tổng số kg cá ngừ mà các ngư dân câu được.Xuất tổng


Nặc danh nói...

giúp mình bài này với
viết chương trình nhập một dãy số N (-100<N<100) và dãy số đó có 10 chữ số. Tìm max cảu dãy số đó va cho biết giá trị lớn nhất đầu tiên tìm được là bao nhiêu và ở vị trí thứ mấy


Moo Moo nói...

Vào một buổi sáng nông dân John sắp một đàn bò gồm n con bò để vắt sữa. Ông dự kiến là vào sáng hôm đó, con bò thứ i có khả năng sẽ vắt được ai lít sữa. Tuy nhiên đàn bò của ông có đặc tính là cứ mỗi lần vắt sữa một con, những con còn lại trông thấy sợ quá nên sẽ bị giảm sản lượng mỗi con 01 lít sữa. Nếu vắt sữa con bò thứ nhất, n-1 con còn lại bị giảm sản lượng. Sau đó vắt sữa con bò thứ hai thì n-2 con còn lại bị giảm sản lượng.... Bạn hãy giúp nông dân John tính xem thứ tự vắt sữa bò như thế nào để số lượng sữa vắt được là nhiều nhất nhé.
Dữ liệu vào: gồm 2 dòng
- Dòng thứ nhất là số nguyên n (1 ≤ n ≤ 100) là số lượng con bò.
- Dòng thứ hai gồm n số nguyên a1, a2,..., an (1 ≤ ai ≤ 1000) là sản lượng sữa của các con bò.
Dữ liệu xuất:
- Là một số nguyên xác định số lít sữa nhiều nhất mà anh Bo có thể vắt được.


Moo Moo nói...

Vào một buổi sáng nông dân John sắp một đàn bò gồm n con bò để vắt sữa. Ông dự kiến là vào sáng hôm đó, con bò thứ i có khả năng sẽ vắt được ai lít sữa. Tuy nhiên đàn bò của ông có đặc tính là cứ mỗi lần vắt sữa một con, những con còn lại trông thấy sợ quá nên sẽ bị giảm sản lượng mỗi con 01 lít sữa. Nếu vắt sữa con bò thứ nhất, n-1 con còn lại bị giảm sản lượng. Sau đó vắt sữa con bò thứ hai thì n-2 con còn lại bị giảm sản lượng.... Bạn hãy giúp nông dân John tính xem thứ tự vắt sữa bò như thế nào để số lượng sữa vắt được là nhiều nhất nhé.
Dữ liệu vào: gồm 2 dòng
- Dòng thứ nhất là số nguyên n (1 ≤ n ≤ 100) là số lượng con bò.
- Dòng thứ hai gồm n số nguyên a1, a2,..., an (1 ≤ ai ≤ 1000) là sản lượng sữa của các con bò.
Dữ liệu xuất:
- Là một số nguyên xác định số lít sữa nhiều nhất mà anh Bo có thể vắt được.


Moo Moo nói...

Vào một buổi sáng nông dân John sắp một đàn bò gồm n con bò để vắt sữa. Ông dự kiến là vào sáng hôm đó, con bò thứ i có khả năng sẽ vắt được ai lít sữa. Tuy nhiên đàn bò của ông có đặc tính là cứ mỗi lần vắt sữa một con, những con còn lại trông thấy sợ quá nên sẽ bị giảm sản lượng mỗi con 01 lít sữa. Nếu vắt sữa con bò thứ nhất, n-1 con còn lại bị giảm sản lượng. Sau đó vắt sữa con bò thứ hai thì n-2 con còn lại bị giảm sản lượng.... Bạn hãy giúp nông dân John tính xem thứ tự vắt sữa bò như thế nào để số lượng sữa vắt được là nhiều nhất nhé.
Dữ liệu vào: gồm 2 dòng
- Dòng thứ nhất là số nguyên n (1 ≤ n ≤ 100) là số lượng con bò.
- Dòng thứ hai gồm n số nguyên a1, a2,..., an (1 ≤ ai ≤ 1000) là sản lượng sữa của các con bò.
Dữ liệu xuất:
- Là một số nguyên xác định số lít sữa nhiều nhất mà anh Bo có thể vắt được.


Unknown nói...

Giúp e vs gấp nhé. Nhập vào 1 tệp n dòng với mỗi dòng 5 số nguyên.


bùi anh ngọc nói...

tính tổng các phần tử trong mảng:
var a:array[1..30] of integer;
i,n,s:integer;
begin
write('nhap n '); readln(n);
for i:=1 to n do
begin write('a[',i,']='); readln(a[i]); end;
s:=0;
for i:=1 to n do s:=s+a[i];
wr
ite('tong ',s);
readln
end.


Unknown nói...

nn:=n;
repeat
a:=n mod 10;
nn:= nn+a;
n:= n div 10;
until n=0;


Unknown nói...

nn:=n;
repeat
a:=n mod 10;
nn:= nn+a;
n:= n div 10;
until n=0;


Nặc danh nói...

Trong kỳ thi học sinh giỏi môn Tin học, em là người đạt giải đặc biệt. Ban tổ chức cho phép em chọn các phần thưởng cho mình. Các phần thưởng xếp thành một dãy được đánh số từ 1 đến N (0 ≤ N ≤ 10000), phần thưởng thứ i có giá trị là ai (1 ≤ ai ≤ 100). Em được phép chọn các phần thưởng cho mình theo nguyên tắc không chọn 3 phần thưởng liên tiếp nhau trong dãy.
Viết chương trình để máy tính hướng dẫn em chọn các phần thưởng sao cho tổng giá trị của các phần thưởng nhận được là lớn nhất.
Dữ liệu vào: cho file PTHUONG.INP gồm các dòng:
- Dòng đầu tiên là số phần thưởng N
- N dòng tiếp theo lần lượt là giá trị của các phần thưởng.
Dữ liệu ra: ghi ra file PTHUONG.OUT gồm các dòng:
- Dòng đầu tiên ghi tổng giá trị lớn nhất của các phần thưởng đã chọn
- Dòng tiếp theo ghi vị trí của các phần thưởng đã chọn theo thứ tự tăng dần
pthuong.inp
7
6
9
1
3
5
10
4
pthuong.out
32
1 2 4 6 7


Mình cần thuật toán thôi bạn nào biết chỉ giùm !


Nặc danh nói...

viết chương trình yêu cầu người dùng nhập vào các thông tin sau:
- Họ
- Tên
- Ngày tháng năm sinh
Yêu cầu:
1. Ghép họ và tên người dùng vừa nhập lại.
2. Cho biết họ và tên người dùng vừa nhập có bao nhiêu từ.


Unknown nói...

các bác chỉ em với..... viết trương trình nhập vào 1 dãy số gồm n phần tử n<100 và thực hiện các yêu cầu sau
a) tính trung bình các phân tử của dãy số
b) sắp xếp dãy số theo thứ tự tăng dần giảm dần


Pan nói...

Giúp em với...
Một văn bản được gọi là văn bản chuẩn nếu:
-Hai từ liền nhau có duy nhất một dấu cách
-Dấu ngắt câu(dấu chấm,dấu phẩy,dấu chấm phẩy,dấu chấm hỏi,dấu chấm than) được đặt sát vào từ ngay trước nó, sau đó mới đến dấu cách trống.
-Dấu mở ngoặc đặt sát vào phía bên trái của từ bắt đầu mở ngoặc.
-Dấu đóng ngoặc đặt sát bên phải từ cuối cùng được đóng ngoặc.
Hãy viết chương trình để kiểm tra và đưa một đoạn văn bản về dạng chuẩn.
Dữ liệu vào: từ file Bai3.inp
Dữ liệu ra : ghi ra file Bai3.out văn bản đã chuẩn hóa


Nặc danh nói...

nhập một dãy so bat kì. Sắp xếp dãy số giảm dần


Unknown nói...

Cho n số nguyên dương từ a[1] đến a[n]. Người ta tạo ra số mới bằng cách viết liên tiếp các sô nguyên với nhau. Tìm số lớn nhất có thể tạo thành quy tắc trên.


Nặc danh nói...

Giúp mk vs
Viết ct phát sinh 1 mảng số nguyên tối đa 50 phần tử. Mỗi phần tử là 1 số nguyên gồm 3 chữ số. Sắp xếp lại mảng vừa phát sinh theo thứ tự giảm dần


Nặc danh nói...

Giúp mk vs
Viết ct phát sinh 1 mảng số nguyên tối đa 50 phần tử. Mỗi phần tử là 1 số nguyên gồm 3 chữ số. Sắp xếp lại mảng vừa phát sinh theo thứ tự giảm dần


Unknown nói...

Cho mình hỏi
viết chương trình nhập từ bàn phím số nguyên dương N (N<: 100) VÀ DÃY SỐ NGUYÊN gồm các phần tử A1,A2,A3,...,An tạo tệp Trại.TXT lưu dãy số nguyên dương mỗi số cách nhau bởi 1 dấu cách và k kết thúc bởi kí tự cuống dòng


Unknown nói...

viet chuong trinh nhap vao 2 so nguyen nho truoc lon sau . trong khoang 2 so nay thuc hien cong viec nhu sau : in ra man hinh các so chan co 0 dãy ... giải hõ em với


Unknown nói...

viết chương trình nhập vào mảng một chiều A gồm 5 phần tử số nguyên,xâu kí tự S không quá 30 kí tự
a, Tính và in ra màn hình tổng hợp các phần tử chẵn của mảng A
b, In ra màn hình các ký tự số của xâu S
ai làm giúp em vs ạ


Unknown nói...

viết chương trình nhập vào mảng một chiều A gồm 5 phần tử số nguyên,xâu kí tự S không quá 30 kí tự
a, Tính và in ra màn hình tổng hợp các phần tử chẵn của mảng A
b, In ra màn hình các ký tự số của xâu S
ai làm giúp em vs ạ


Unknown nói...

giúp em bài này đc ko
In ra màn hinh dòng chữ (tin hoc 8) dùng lenh while do


Unknown nói...

Cac ban giup minh bai
Viết chương trình nhập vào 1 dãy n số nguyên . in ra màn hình các số chia hết cho 3 và 5.


Unknown nói...

Bạn giúp bài này cho mik vs
Vt chương trình pascal phân tích một số ra thừa số nguyên tố


Unknown nói...

Cho mình xin lời giải:
- Tạo ngẫu nhiên 250 số nguyên (mỗi số gồm 12 kí tự). Kiểm tra xem mỗi số có phải là số nguyên tố không. Nếu là số nguyên tố thì ghi vào tệp 'songuyento.txt'.
Mình cảm ơn!


Unknown nói...

đọc vào số tự nhiên n,in ra tất cả các số chính phương<n


Unknown nói...

giúp em bài này với
viết chương trình tìm giá trị lớn nhất của mảng số nguyên A gồm n số (n<=150) dữ liệu của mảng đc lấy từ tệp gtln.txt tệp gồm 2 dòng, dong 1 ghi số n, dòng 2 ghi n số


Unknown nói...

giúp em giải bài này với ạ
viết chương trình tìm giá trị lớn nhất của mảng số nguyên A gồm n số (n<=150) dữ liệu của mảng đc lấy từ tệp gtln.txt tệp gồm 2 dòng, dong 1 ghi số n, dòng 2 ghi n số


Acc lung tung nói...

Nhập vào từ bàn phím hai số nguyên n,m (2<=m<=n; 2<=n<=20) và một dãy A gồm n số nguyên a[1],a[2],....,a[n] bất kì có giá trị tuyệt đối <=109
Hiển thị ra màn hình:
- Dòng 1: in ra các số n và m
- Dòng 2: in dãy số sau khi xóa vị trí thứ m từ dãy a
- Dòng 3: in dãy số chỉ gồm các số có giá trị khác nhau trong dãy a
- Dòng 4: in số B là bội chung nhỏ nhất của các số trong dãy A


drasdadadasdw nói...

Các đại ca cho em xin lời giải:
viết chương trình nhập 2 số và in ra số lớn hơn
viết chương trình nhập 4 số và in ra số lớn nhất


Nặc danh nói...

giúp mình với
viết chương trình pascal nhập tên và học lực sử dụng string


Quang Khải nói...

viet chuong trinh nhap 1 cau va in ra thanh tung chu rieng biet ,moi chu tren 1 hang,

ví dụ
nhap Son My xuat ra chu Son 1 hang chu My 1 hang


Nặc danh nói...

giúp mình bài này với : viết chương trình có sử dụng chương trình con nhập vào dãy số gồm n số nguyên in ra màn hình các số nguyên tố trong dãy . cám ơn trước


Tấn Phát nói...

giúp em 2 bài này với

bài 1: viết chương trình nhập dãy n số. In ra màn hình

bài 2: viết chương trình nhập dãy n số. In ra tổng số lẽ trong dãy vừa nhập


Unknown nói...

mọi người giúp mình với ạ :
Viết chương trình Pascal sử dụng kiểu dữ liệu tệp thực hiện nhập N số nguyên dương và từ bàn phím,kiểu xâu tệp SOCHAN.TXT của số chẵn và số lượng các số chẵn ( dòng dưới) . Giả sử tệp SOCHAN.TXT có dạng
2 4 8 12
4


Unknown nói...

ai giải giùm bài này với:
viết chương trình nhập dãy n số rồi tính tổng số lẻ và in ra màn hình


Unknown nói...

ai giải giùm bài này với:
viết chương trình nhập dãy n số rồi tính tổng số lẻ và in ra màn hình


Unknown nói...

giúp mình viết code hoàn chỉnh sắp xếp dãy số tăng dần bằng 6
phương pháp vun đống, chọn trực tiếp, chèn trực tiếp, phân đoaạn, nổi bọt và đổi chỗ trực tiếp


Unknown nói...

giúp mình viết code hoàn chỉnh sắp xếp dãy số tăng dần bằng 6
phương pháp vun đống, chọn trực tiếp, chèn trực tiếp, phân đoaạn, nổi bọt và đổi chỗ trực tiếp


Diệp nói...

Ai học giỏi tin kb với em qua face em nhờ làm vài bài tin đc ko ạ? Mong các chế trả lời em đang cần gấp


Dương Mỹ Hoa nói...

giúp mình với ai đó giải hộ mình bài này dc ko
sử dụng biến mảng viết chương trình nhập vào N số nguyên từ bàn phím. Sau đó đếm xem trong mảng có bao nhiêu phần tử dương





Nặc danh nói...

Lập trình đọc từ tệp DAYSOA.INP dãy số nguyên dương A gồm có N số a1, a2, a3, ..., aN (N lớn hơn hoặc bằng 100). Tìm xem trong dãy số A có bao nhiêu số là số lẻ chia hết cho 3. Kết quả ghi vào tệp DEMSOLE.OUT . Biết rằng tệp SONGUYEN.TXT có cấu trúc như sau: -Dòng thứ nhất ghi giá trị số N. - Dòng thứ 2 ghi giá trị các số nguyên dương a1,a2,a3,...aN. Tệp DESOLE.OUT chỉ ghi một giá trị duy nhất là số lượng số lẻ chia hết cho 3 của dãy A


Nặc danh nói...

giúp mình viết chương trình pascal
tính tổng 30 số nguyên đầu tiên





Unknown nói...

muốn VCT nhập 1 số bất kì từ bàn phím sau đó đếm xem có bn n phần tử trong dãy, các dãy đc nhập từ bàn phím
giúp em với ạ


Unknown nói...

giúp mik vs mik cảm ơn trước Viết chương trình thực hiện nhập 10 phần tử có giá trị nguyên cho mảng A từ bàn phím và tính tổng các phần tử lẻ


Unknown nói...

giúp mik vs mik cảm ơn trước Viết chương trình thực hiện nhập 10 phần tử có giá trị nguyên cho mảng A từ bàn phím và tính tổng các phần tử lẻ


Unknown nói...

Giải giúp em
Cho mot tep so.txt hay tao ra mot tep bit.txt bao gom cac day bit tu cac so nguyen trong tep,moi day bit nam tren mot dong


Unknown nói...

viet chuong trinh nhap vao 1 day so va in ra man hinh gia tri lon nhat va nho nhat


Unknown nói...

viet chuong trinh nhap vao 1 day so va in ra man hinh gia tri lon nhat va nho nhat


Unknown nói...

anh giai giup em viet chuong trinh nhap vao mot day so va in ra man hinh gia tri nho nhat va lon nhat


Unknown nói...

viet chuong trinh nhap vao 1 day so va in ra man hinh gia tri lon nhat va nho nhat


Nặc danh nói...

ai giúp mình viết ct sử dụng ct con thực hiện
1 nhập n và dãy số A1,A2,...;An nguyên dương
2 đếm số chẵn có trong dãy
3 tính tổng số chính phương


Unknown nói...

giúp vs e chuẩn bị thi hk2 r :viết chương trình biến mảng tính tổng của n số nguyên nhập từ bàn phím


Unknown nói...

giải giúp e bài này vs đi ạ, cần gấp nha mn.
lập trình nhập từ bàn phím số nguyên dương n và dãy dố nguyên A1,A2,...An (sử dụng chương trình con nhập mảng). tính tổng các số lẻ chia hết cho 5 (sử dụng chương trình con kiểm tra số lẻ). In kết quả vào tệp output.txt


Unknown nói...

viết chương trình nhập vào dãy N nguyên sao cho N nhỏ hơn hoặc bằng 250. cho biết trobg dãy có bao nhiêu số chẵn .bao nhiêu số chia hết cho 3


Unknown nói...

viết chương trình nhập vào dãy N nguyên sao cho N nhỏ hơn hoặc bằng 250. cho biết trobg dãy có bao nhiêu số chẵn .bao nhiêu số chia hết cho 3


Unknown nói...

[Cần gấp] Viết phương trình tính Tổng chẵn ,lẻ của 10 số bất kì từ bàn phím


Unknown nói...

nhập vào số nguyên dương N (N<250) tính tổng các số là bội của 9..... giải bài nay dùm mình vs ak


Nganqueen nói...

Các anh chị giải giúp e bài này ạ:
Viết chương trình nhập mảng A có các phần tử sau (2, 5, 3, 4, 6 ) rồi tính tổng các số nguyên tố trong mảng A vừa nhập.
Cho em lời giải nhanh ạ, e cảm ơn


Unknown nói...

trả lời:
Cho số tự nhiên n (n<1000)
a. Số n có bao nhiêu chữ số?
b. Tìm tổng các chữ số của n.
c. Tìm chữ số cuối và chữ số đầu của n

Ví dụ: N=123Tổng = 3+2+1=6
Ý tưởng: tách hàng đơn vị của số n ra.
Ta biết hàng đơn vị của số nguyên N bất kỳ sẽ trong khoảng[0…9]. Vì thế để tách hàng đơn vị ta chia lấy phần dư của N cho 10.
Gán lại giá trị N = n div 10.
Cộng các hàng đơn vị lại.
Bài giải:
Var dau,cuoi, n,tong,dem:integer;
Begin
Write(‘ nhap n’);readln(n);
Tong:=0;dem:=0;
While n<>0 do
Begin
Tong:=tong + n mod 10;
dem:=dem+1;
if dem=1 then dau:= n mod 10;
cuoi:=n mod 10;
N:=n div 10;
End;
Write(‘ tong ‘, tong, ' so luong ', dem, ' so dau', dau, ' so cuoi', cuoi); readln;
End.

Chúc bạn thành công.


Unknown nói...

cho mình hỏi bài Nhập từ bàn phím hai số nguyên dương M,N(M,N<10^9). In ra màn hình các kết quả sau:
Dòng 1: In ra các số là ước chung của M và N , các số cách nhau bởi dấu cách
Dòng 2: Ghi UCLN và BCNN cách nhau bởi dấu cách
Dòng 3: Ghi số chữ số của M và tổng các chữ số của N cách nhau bởi dấu cách
Dòng 4: GHi K chữ số cuối cùng của M^N với K(0<K<9) nhập từ bàn phím. Nếu M^N không đủ K chữ số thì in ra kết quả của M^N


Unknown nói...

{N số trong dãy sô Fibonacci đầu tiên. 00) and (n<=50);
for i:=1 to n do
if i< 3 then day[i]:=1
else day[i]:=day[i-1] + day[i-2];
for i := 1 to n do write(day[i],' ');
readln;
end.


Unknown nói...

Cho trước các số nguyên M, N và K ( M+N ≤ 30; 1 ≤ M; 0 ≤ N; 1 ≤ K< 500).
Yêu cầu:Số lượng số tự nhiên chia hết cho K, khi biểu diễn nhị phân của nó đúng M số 1 và N số 0 (không tính các số không vô nghĩa).


Unknown nói...

cho dãy số được định nghĩa như sau
a1=1
an =an-1+n-1 (với n lớn hơn hoặc bằng 2)
viết công thức nhập vào số n (n<30 )
in ra số thứ n của dãy


Unknown nói...

Giả sử có n ghế và n sinh viên, mỗi sinh viên chỉ được xếp vào ngồi trên 1 ghế và mỗi ghế chỉ phép có một sinh viên
- Viết phương trình nhập vào họ tên của n sinh viên và in ra các cách xếp chỗ ngồi
- Yêu cầu chương trình có 1 menu chọn như sau:
1. Nhập dữ liệu
2. Xếp chỗ ngồi
3. Thoát


Nặc danh nói...

Giúp mình với: viết ctrình nhập vào 1 mảng số nguyên,xóa các phần tử trùng nhau nhưng để lại 1 ?
vd:2-2-1-1-3-3 -> 2-1-3


Unknown nói...

Nhập vào từ bàn phím 2 số nguyên a và b (b<>0). In ra màn hình trên mỗi dòng các giá trị sau: tổng, hiệu, tích, thương của a với b và số lớn trong 2 số đó. Ví dụ: a = 6, b = 2 (màn hình hiển thị: 8, 4, 12, 3, 6)


Unknown nói...

Cho trước số tự nhiên n. Viết chương trình cho biết n có thể biểu diễn thành tổng của hai hoặc nhiều số tự nhiên liên tiếp hay không?
Trong trường hợp có, hãy thể hiện tất cả các cách có thể có.


Nặc danh nói...

Các bác giúp em ạ
Nhập n,k và chữ số c
a/ tìm k số lớn hơn n mà trong các số đó có chứa chữ số c
b/ như bài trên và tìm k số nhỏ hơn n


Nặc danh nói...

có ai sửa đk lỗi ở bài này ko ạ:
clrscr;
S:= 24;
while S>1 do
begin
if (S mod 2=1) then
S:= 3*S +1;
writeln(S);
end;


Unknown nói...

a) Tìm chiều dài lớn nhất của dãy gồm các chữ số khác 0 liên tiếp của n
b) Nếu tách n thành các nhóm gồm các chữ số khác 0 nằm liên tiếp thì ta được bao nhiêu nhóm.


Unknown nói...

a) Tìm chiều dài lớn nhất của dãy gồm các chữ số khác 0 liên tiếp của n
b) Nếu tách n thành các nhóm gồm các chữ số khác 0 nằm liên tiếp thì ta được bao nhiêu nhóm.


đăng nói...

Giải cho e bài này với:Cho số tự nhiên n được nhập từ bàn phím. Hãy đếm có thể có nhiều nhất bao
nhiêu số chính phương được lấy ra từ các chữ số liên tiếp của n (số chính phương
được lấy ra có thể có một chữ số)


Unknown nói...

Giai ho em
Số âm lớn nhất.
Cho một dãy gồm N số nguyên a 1 , a 2 , …, a N , mỗi số có giá trị tuyệt đối không
vượt quá 10 4 .
Yêu cầu: Hãy tìm số nguyên âm lớn nhất X trong dãy đã cho.


KNghi nói...

Cho số tự nhiên A có N chữ số. Yêu cầu: Hãy hoán vị các chữ số trong A để được cặp số liền trước và liền sau A gần nhất .Dữ liệu vào: Trong tập tin văn bản CAPSOKE.INP, gồm: Dòng đầu tiên là N (N<= 10 căn 3) Dòng thứ hai là số A. (A<=10 căn 5) kết quả: Trong tập tin văn bản CAPSOKE.OUT, gồm: một dòng duy nhất ghi cặp số tìm được cách nhau một khoảng trắng. Nếu số nào tìm k ra thì ghi chữ số 0.


Nguyên Khôi nói...

Giúp mình bài này với:
Viết chương trình nhập 1 dãy số nguyên (Nhỏ hơn hoặc bằng 100). Đưa ra màn hình dãy vừa nhập. Đếm số lượng phần tử "lồi" (lớn hơn 2 phần tử liền kề), số phần tử "lõm" (Nhỏ hơn 2 phần tử liền kề)


đăng nói...

cho em hỏi code bai này với: Cho số nguyên dương N, hãy xác định số cách biểu diễn n bằng các bộ có thứ tự bốn số nguyên
không âm (a, b, c, d) sao cho N = a^2 + b^2 + c^2 + d^2 .


Unknown nói...

Cho file INPUT.INP gồm hai dòng, dòng đầu là dãy số A gồm N số nguyên dương (0 < N ≤ 10000), dòng thứ hai là một số tự nhiên P (0 < P < N). Giả sử dãy số A được xếp thành một vòng tròn theo chiều kim đồng hồ, hãy thực hiện hành động xóa giá trị thứ P trong dãy số A, sau đó cứ bỏ qua 3 giá trị rồi xoá số theo thứ tự chiều kim đồng hồ. Quá trình cứ tiếp diễn như thế cho đến khi còn lại 1 số. Hỏi số cuối cùng còn lại trong dãy số A là số nào? Kết quả ghi vào file OUTPUT.OUT.


smithjonh nói...

moi nguoi oi


smithjonh nói...

cho minh xin loi giai: kiểm tra nếu số I là nguyên tố thì đổi số I sang xâu, đảo ngược xâu rồi so sánh 2 xâu
nếu bằng nhau thì viết số I ra


Unknown nói...

ai giúp em lập chương trình in ra phân số ?


Unknown nói...

Bài của Hoàng Anh: (tìm bcnn và ucln)
Uses crt;
var n,d,m,i,t:integer;
begin
clrscr;
readln(m,n);
i:=1;
repeat
i:=i+1;
d:=0;
if (i mod n=0) and (i mod m=0) then d:=d+1;
until d=0;
writeln('BCNN:',i);
i:=1;
repeat
i:=i+1;
d:=0;
if (n mod i=0) and (m mod i=0) then d:=d+1;
until d=0;
write('UCLN:',i);
readln
end


Unknown nói...

Đăng nè, vào nhận hàng đi:
uses crt;
var n,a,b,c,d:integer;
begin
clrscr;
readln(n);
for a:=1 to n do
for b:=1 to n do
for c:=1 to n do
for d:=1 to n do
if a*a+b*b+c*c+d*d=n then writeln(a,' ',b,' ',c,' ',d);
readln
end.


phamvu20052002 nói...

vẽ ma trận xoắn ốc n*n với n nhập từ bàn phím


Unknown nói...

Ai Giúp Em Hai Bài Này E Hậu Tạ Ạ
BT1: Viết CT Nhập Vào 1 Số Tự Nhiên N.Xuất Ra Màn Hình N Có Bao Nhiêu Chữ Số Và Tính Tích Các Chữ Số Của N
VD:352 Có 3 Chữ Số
352 Có Tích Các Chữ Số Là 30
BT2:Viết CT Nhập N Từ Bàn Phím 1 Dãy Số Nguyên.Xuất Ra Màn Hình Dãy Số Đã Nhập Và Xuất Có Bao Nhiêu Số Chính Phương,Xuất Các Số Chính Phương Đó.Có Bao Nhiêu Số Nguyên Tố Và Xuất Các Số Nguyên Tố Đó.


Unknown nói...

Ai Giúp Em Hai Bài Này E Hậu Tạ Ạ
BT1: Viết CT Nhập Vào 1 Số Tự Nhiên N.Xuất Ra Màn Hình N Có Bao Nhiêu Chữ Số Và Tính Tích Các Chữ Số Của N
VD:352 Có 3 Chữ Số
352 Có Tích Các Chữ Số Là 30
BT2:Viết CT Nhập N Từ Bàn Phím 1 Dãy Số Nguyên.Xuất Ra Màn Hình Dãy Số Đã Nhập Và Xuất Có Bao Nhiêu Số Chính Phương,Xuất Các Số Chính Phương Đó.Có Bao Nhiêu Số Nguyên Tố Và Xuất Các Số Nguyên Tố Đó.


Nặc danh nói...

Ai Giúp Em Hai Bài Này E Hậu Tạ Ạ
BT1: Viết CT Nhập Vào 1 Số Tự Nhiên N.Xuất Ra Màn Hình N Có Bao Nhiêu Chữ Số Và Tính Tích Các Chữ Số Của N
VD:352 Có 3 Chữ Số
352 Có Tích Các Chữ Số Là 30
BT2:Viết CT Nhập N Từ Bàn Phím 1 Dãy Số Nguyên.Xuất Ra Màn Hình Dãy Số Đã Nhập Và Xuất Có Bao Nhiêu Số Chính Phương,Xuất Các Số Chính Phương Đó.Có Bao Nhiêu Số Nguyên Tố Và Xuất Các Số Nguyên Tố Đó.


Unknown nói...

Viết chương trình liệt kê và đưa ra màn hình các cách phân tích số N thành tổng của ba số tự nhiên khác nhau. Nếu không có cách nào hãy đưa ra -1. Chẳng hạn với n=8 ta có 2 cách là 8= 1+3+4 và 8=1+2+5 hoặc với n=4 thì ta không có cách nào.
Dữ liệu vào lấy từ file numberpt.inp gồm có số N (0≤n ≤ 109).
Kết quả ghi vào file numberpt.out là các cách phân tích số N. nếu không có thì ghi số -1.


Unknown nói...

Viết chương trình liệt kê và đưa ra màn hình các cách phân tích số N thành tổng của ba số tự nhiên khác nhau. Nếu không có cách nào hãy đưa ra -1. Chẳng hạn với n=8 ta có 2 cách là 8= 1+3+4 và 8=1+2+5 hoặc với n=4 thì ta không có cách nào.
Dữ liệu vào lấy từ file numberpt.inp gồm có số N (0≤n ≤ 109).
Kết quả ghi vào file numberpt.out là các cách phân tích số N. nếu không có thì ghi số -1.


Unknown nói...

Viết chương trình trò chơi “thử vận may” theo mô tả như sau:
Đầu tiên máy tính sinh một số ngẫu nhiên n để biểu diễn số lượt chơi
Ở mỗi lượt chơi, máy tính sẽ sinh một số ngẫu nhiên. Trước khi thông báo số này, người chơi sẽ đoán đó là số chẵn (bằng cách nhập số 0) hay lẻ (bằng cách nhập số 1).
Kết thúc n lượt chơi, máy tính sẽ thông báo số lần đoán đúng và tỷ lệ đoán đúng của người chơi và thông báo về “sự may mắn” của người chơi, nếu tỷ lệ đoán đúng là:
+ Từ 80% trở lên thì thông báo “rất may mắn”
+ Từ 65% đến dưới 80% thì thông báo “may mắn”
+ Từ 50% đến dưới 65% thì thông báo “bình thường”
+ Dưới 50% thì thông báo “không may mắn”.
ai giúp vs


Nặc danh nói...

Xin giải giúp em bài này với ạ
Hai bạn chọn mua vở giá 8000đ/1quyển, bút 3000đ/1cây. Tính số tiền phải trả khi mua m quyển vở và n cây bút, biết cứ mỗi 10000 đ mua hàng 2 bạn được hoàn lại 1000. M,n được nhập từ bàn phím.


Unknown nói...

cho e hỏi
Viết chương trình in ra các số có thể là mã của chiếc cặp số (gồm ba vòng số), biết rằng chủ nhân của nó đặt mã dựa vào ngày Quốc tế phụ nữ 8/3 như sau: mã là số có ba chữ số a, b, c thỏa mãn 8.a+3.b=8.3.c.
Làm thế nào a


Unknown nói...

để tính số N gồm bao nhiêu chữ số
- cho N vào vòng lặp nếu n>=10 thi
n:= n div 10--> dem:=dem+1; tich=tich*(n mod 10)


Nặc danh nói...

viết chương trình nhập vào 1 số chẵn n từ file(n>2);tìm cặp số nguyên tố có tổng bằng n???


Nguyễn Hoàng Duy nói...

viết công thức nhập dãy 80 số nguyên, xuất ra màn hình các số chắn, lẻ, chính phương, nguyên tố trong có trong dãy trên. câu này khó quá ạ, giúp e vs các a chị


Unknown nói...

Viết chương trình nhập vào từ bàn phím 1 khoảng thời gian n phút (0<n<=5)nếu nhập sai thì yêu cầu nhập lại nhập khi nào đúng in ra màn hình thông báo đếm ngược dây


Unknown nói...

Viết chương trình nhập vào từ bàn phím 1 khoảng thời gian n phút (0<n<=5)nếu nhập sai thì yêu cầu nhập lại nhập khi nào đúng in ra màn hình thông báo đếm ngược dây


Unknown nói...

Viết chương trình nhập vào từ bàn phím 1 khoảng thời gian n phút (0<n<=5)nếu nhập sai thì yêu cầu nhập lại nhập khi nào đúng in ra màn hình thông báo đếm ngược dây


Unknown nói...

ài 1: Nhập vào một mảng để lưu điểm tin học cho tối đa 45 học sinh trong lớp
- Đếm xem trong lớp có bao nhiêu bạn đạt trung bình loại giỏi
- In điểm học sinh đạt loại giỏi và số học sinh có điểm loại giỏi đó
Bài 2: Nhập vào một mảng để lưu điểm môn lý
- Cho n số học sinh trong lớp
- Tính điểm trung bình môn của lớp
- In số học sinh có điểm trên TB


Unknown nói...

ài 1: Nhập vào một mảng để lưu điểm tin học cho tối đa 45 học sinh trong lớp
- Đếm xem trong lớp có bao nhiêu bạn đạt trung bình loại giỏi
- In điểm học sinh đạt loại giỏi và số học sinh có điểm loại giỏi đó
Bài 2: Nhập vào một mảng để lưu điểm môn lý
- Cho n số học sinh trong lớp
- Tính điểm trung bình môn của lớp
- In số học sinh có điểm trên TB


Unknown nói...

ài 1: Nhập vào một mảng để lưu điểm tin học cho tối đa 45 học sinh trong lớp
- Đếm xem trong lớp có bao nhiêu bạn đạt trung bình loại giỏi
- In điểm học sinh đạt loại giỏi và số học sinh có điểm loại giỏi đó
Bài 2: Nhập vào một mảng để lưu điểm môn lý
- Cho n số học sinh trong lớp
- Tính điểm trung bình môn của lớp
- In số học sinh có điểm trên TB


Unknown nói...

giai gap guip minh de
Nhap n so tu nhien sau do in ra man hinh trung binh cong cua cac so chia hety cho 3 tu 1 den n


Unknown nói...

giai gap guip minh de
Nhap n so tu nhien sau do in ra man hinh trung binh cong cua cac so chia hety cho 3 tu 1 den n


Unknown nói...

giúp mình bài này với
Trong kỳ thi vấn đáp học sinh phải trả lời các câu hỏi của thầy giáo. Nếu trả lời đúng, thầy giáo đánh dấu bằng ký tự ‘C’ (Correct), nếu sai thì đánh dấu ‘N’ (No Correct). Khi học sinh trả lời đúng, thầy sẽ đưa ra câu hỏi tiếp theo khó hơn câu trước, còn khi trả lời sai thầy sẽ cho câu hỏi mới dễ hơn. Sau khi thi xong, kết quả của mỗi học sinh là một xâu các ký tự ‘C’ và ‘N’. Điểm số của học sinh sẽ được tính như sau: Với các câu trả lời sai học sinh không được điểm, với mỗi câu trả lời đúng học sinh nhận được điểm bằng số lần trả lời đúng liên tiếp từ câu trả lời này trở về trước. Ví dụ, nếu kết quả là ‘CCNNCNNCCC’, thì điểm số sẽ là 1+2+0+1+0+0+1+2+3 = 10.

Yêu cầu: Cho xâu kết quả độ dài không quá 1000, hãy tính điểm của học sinh.

Dữ liệu: Vào từ file văn bản SCORE.INP chứa một xâu kết quả thi.

Kết quả: Đưa ra file văn bản SCORE.OUT điểm số của kết quả thi.


Akashi nói...

Viết chương trình tính trung bình cộng của 3 số được đọc từ file
BAI1.INP và đưa kết quả vào file BAI1.OUT với nội dung là “DAU” nếu trung bình
cộng không nhỏ hơn 5.00, ngược lại đưa ra “ROT”
Biết: file BAI1.INP chứa 3 số nguyên dương mỗi số cách nhau mỗi khoảng trắng


Unknown nói...

Cho em hỏi bài sau mai kiểm tra rồi ạ: Viết chương trình nhập vào chiều cao của tam giác cân sau đó in ra màn hình tương ứng với chiều cao đó bằng dấu sao


Unknown nói...

cho dãy gồm n số nguyên không âm a1,a2,...,an
hãy sắp xếp lại dãy thành 3 nhóm sao cho: nhóm đầu gồm các số chia hết cho 3, nhóm giữa gồm các số chia 3 dư 1, nhóm sau cùng gồm các số chia 3 dư 2. trong mỗi nhóm các số được sắp xếp tăng


Nặc danh nói...

đọc vào dữ liệu từ file input.txt gồm 2 dòng. Dòng 1 chứa số lượng phần tử của mảng. Dòng 2 chứa giá trị từng phần tử của mảng. tính tổng các phần tử dương có trong mảng. Ghi kết quả lên tệp có tên output.txt?
Các bạn giúp mình với ạ mình đang ktra 15' huhu


Unknown nói...

viết chương trình nhập từ bàn phím 1 xâu. Nhập vào xâu thứ nhất tên của em, nhập vào xâu thứ 2 tên của bạn em. In ra màn hình tên của bạn em, dòng 2 tên của em (1 bản lệnh xóa màn hình và 1 bản không có lệnh xóa màn hình)


Unknown nói...

viết chương trình nhập từ bàn phím 1 xâu. Nhập vào xâu thứ nhất tên của em, nhập vào xâu thứ 2 tên của bạn em. In ra màn hình tên của bạn em, dòng 2 tên của em (1 bản lệnh xóa màn hình và 1 bản không có lệnh xóa màn hình)


thangjsc nói...

[Cần giúp] viết chương trình pascal tìm số tự nhiên lớn nhất nhỏ hơn n, và chỉ có 3 ước nguyên tố là 3, 5, 7


Nặc danh nói...

Bộ test có sự nhầm lẫn đấy bạn
uses crt;
var N:longint;
procedure xuly(n:longint);
var t:longint;s:string;
begin
t:=0;s:='';
while n>1 do
begin
if (n mod 2=1) or (n=2) then
begin
t:=t+2;n:=n-1;
s:='C1'+s;
end;
if n mod 2 =0 then
begin
t:=t+4;
n:=n div 2;
s:='N2'+s;
end;
end;
writeln(t);writeln(s);
end;
begin
clrscr;
write('n=');readln(n);
xuly(n);
readln;
end.
Bộ test đúng:

Robot.inp Robot.out
10 12
C1 N2 C1 N2
Bài Test
Test Robot.inp Robot.out Điểm
1 12 14
N2 C1 N2 N2 1.0
1.0
2 155 34
C1 N2 N2 C1 N2 C1 N2 N2 C1 N2 C1 1.0
1.0
3 1053 46
C1 N2 N2 N2 N2 N2 C1 N2 C1 N2 C1 N2 N2 C1 1.0
1.0



Nặc danh nói...

Trong kỳ thi học sinh giỏi môn Tin học, em là người đạt giải đặc biệt. Ban tổ chức cho phép em chọn các phần thưởng cho mình. Các phần thưởng xếp thành một dãy được đánh số từ 1 đến N (0 ≤ N ≤ 10000), phần thưởng thứ i có giá trị là ai (1 ≤ ai ≤ 100). Em được phép chọn các phần thưởng cho mình theo nguyên tắc không chọn 3 phần thưởng liên tiếp nhau trong dãy.


«Cũ nhất ‹Cũ hơn   201 – 400 trên 459   Mới hơn› Mới nhất»

Đăng nhận xét

Thành viên Blog

Tổng số lượt xem trang

Translate

Return to top of page Copyright © 2012 | Theme by Hack Tutors. Cung cấp bởi Blogger.
Các code pascal trong blog được sưu tầm, lựa chọn sao cho tối ưu nhất. Cảm ơn các tác giả đã viết thuật toán.