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
- Viết chương trình pascal tính tiền điện hàng tháng với đơn giá 1Kw = 2000 đ. Biết rằng chỉ số đầu và chỉ số cuối...
- Cho số thực R là bán kính của hình tròn nhập vào từ bàn phím Pi là một bằng số có giá trị 3,14.em hãy viết chương...
- tên trong chương trình là gì? quy tắc đặt tên
- Viết chương trình tìm các số nguyên tố từ 1 đến N trong đó N được nhập từ bàn phím?
- Chọn câu lệnh Pascal hợp lệ trong các câu sau: a. If a > b then max = a; b. If 5 := 6 then...
- Số hoàn hảo là số mà tổng các ước của nó bằng 2 lần chính...
- Giúp mình với mai mình thi r Cho một quần xã sinh vật gồm các quần thể sau:cỏ...
- chỉ ra cú pháp khai báo biến mảng đúng trong tturbo pascal: A var :array[..]; ...
Câu hỏi Lớp 8
- this picture is _____ than a horse A -more beautiful B more beautifully
- a. Đun nóng hoàn toàn 18,96 gam KMnO4 thu đc bao nhiêu lít khí oxi ở...
- Đâu là hợp chất oxide, acid, base, muối và hãy gọi tên các hợp chất đó...
- Một hội trường có 120 ghế đc sắp xếp theo các dãy ghế.Nếu thêm 72 ghế thì phải...
- I . Use the correct form of the verbs in brackets 1. I'd like to visit Australia because Australian people are very...
- Cho phản ứng C + O2 -> CO2. Phản ứng trên là: A. Phản ứng hóa học B. Phản ứng tỏa nhiệt C....
- . Choose the best answer 1. Jane saw her old friend while she _________ the street . a. crossed b. is crossing c. was...
- Cho phương trình hóa học Al + O2 à Al2O3 Hãy cho biết tổng...
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.