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
- Lệnh cout << "25^2=" << 25*25; Cho kết quả là
- Cho các câu sau: (1) Bản mẫu chứa bố cục, màu sắc, phông chữ, hiệu ứng, kiểu nền,…...
- viết chương trình Python dùng vòng lặp while tính tổng các số từ 0 đến n(n nhập từ...
- các bước để sắp xếp dữ liệu theo 1 tiêu chí và nhiều tiêu chí
- bài 1 : nhập vào số nguyên n . kiểm tra n là số chẳng hay số lẻ bài 2: nhập...
- Cho chương trình viết trong Pascal: Program Tinh_tien; Var soluong: integer; Dongia, thanhtien: real; Const...
- viết chương trình in ra màn hình bảng cửu chương 14 Giúp mình với ạ cảm ơn nhiều
- Đặc điểm nào sau đây không thuộc về thông tin số? a) Nhiều người có thể truy cập đồng...
Câu hỏi Lớp 8
- 1 theo em , điều gì làm nên sức thuyết phục , hấp dẫn của văn bản trên? 2 sau khi đọc...
- Chuyển các câu sau sang câu bị động 1.Tom delivers the mail everyday 2.Fire destroyed that house 3.Bod took that book...
- Lấy một số ví dụ trong đời sống về các quá trình xảy ra sự biến đổi vật lí, biến...
- Nêu những điểm giống và khác nhau của cơ cấu tay quay, con trượt, bánh răng - thanh răng. Cho...
- Thuyết minh về danh lam thắng cảnh ở bến tre cụ thể là ở chợ lách vĩnh thành hay là 1 đền liệt sĩ nào đó chỉ cần 1...
- 2. Sử dụng “Can,...
- On Christmas Eve ,people often........a tree
- 1. Rewrite the following sentences so that the second sentence means exactly the same as the sentence before it. One...
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.