Nhập một mảng số nguyên gồm n phần tử.In kết quả ra màn hình các số palindrome (pascal)
Mình cần một chút hỗ trợ từ cộng đồng tuyệt vời này. Ai có thể giúp mình giải quyết vấn đề mình đang đối mặt với câu hỏi này không?
Các câu trả lời
Câu hỏi Tin học Lớp 8
- gửi ảnh anime chibi nam cute màu xanh lá nhé
- Câu 2. Chương trình dịch trong ngôn ngữ lập trình Pascal là chương trình...
- Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=3+4+6+...+n. N là số nguyên nhập từ bàn...
- tên trong chương trình là gì? quy tắc đặt tên
- Đại lượng được đặt tên dùng để lưu trữ dữ liệu, có giá trị không đổi trong suốt quá trình thực hiện chương trình được...
- tại sao trong chuong trình sử dụng biến lại dùng writeln nhiều hơn write
- Giúp mình bài này với :Nhập a,b,c. Tính giá trị bth : P=a+b-c ...
- viết công thức bằng ngôn ngữ lập trình pascal tính giá trị biểu thức sau: a, 20.3 - 4.2² b, 10+5/2 - (1/4 - 3/2) c,...
Câu hỏi Lớp 8
- văn bản chiếc lá cuối cùng được viết theo thể loại nào phương thức biểu đạt chủ yếu của văn bản
- (1 điểm) a. Trình bày các nguyên nhân nào gây mất cân bằng tự...
- Tại sao Pháp lại chọn Gia Định làm nơi thực hiện kế hoạch đánh lâu dài với nước ta?
- Cho oxit sau: K2O, CaO, SO3, CuO, ZnO, CO2. Oxit nào tác dụng được với:a, Nướcb, dung dịch axit clohiđric...
- Phân tích đa thức thành nhân tử: x^8 + x + 1
- Choose the best answer for each of the following sentences. (1pt) 1. Harvesting the rice is much...
- Tháp xử lý khí thải Tháp xử lý khí thải sẽ có chức năng xử lý...
- write complete sentences about the Hung Kings Festival. 1. The Hung Kings Temple Festival/ an important festival/...
Bạn muốn hỏi điều gì?
Đặt câu hỏix
- ²
- ³
- √
- ∛
- ·
- ×
- ÷
- ±
- ≈
- ≤
- ≥
- ≡
- ⇒
- ⇔
- ∈
- ∉
- ∧
- ∨
- ∞
- Δ
- π
- Ф
- ω
- ↑
- ↓
- ∵
- ∴
- ↔
- →
- ←
- ⇵
- ⇅
- ⇄
- ⇆
- ∫
- ∑
- ⊂
- ⊃
- ⊆
- ⊇
- ⊄
- ⊅
- ∀
- ∠
- ∡
- ⊥
- ∪
- ∩
- ∅
- ¬
- ⊕
- ║
- ∦
- ∝
- ㏒
- ㏑
uses crt;
var a:array[1..100]of integer;
i,n,d,j,kt:integer;
st:string;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
begin
str(a[i],st);
d:=length(st);
kt:=0;
for j:=1 to d do
if st[j]<>st[d-j+1] then kt:=1;
if kt=0 then write(st:4);
end;
readln;
end.