Đăng nhập để hỏi chi tiết
Cứu !!! Viết bằng pascal
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
TRẢ LỜI
uses crt;
var n,i,s,p: integer;
a: array[1..1000] of integer;
begin
clrscr;
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do begin
p:=a[i];
s:=0;
while p>0 do begin
s:=s*10+p mod 10;
p:=p div 10;
end;
if s=a[i] then write(a[i],' ');
end;
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
52 vote
uses crt;
var a:array[1..10000] of longint;
n,i,tong,b:longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
tong:=0;
readln(a[i]);
b:=a[i];
while a[i] <> 0 do
begin
tong:=tong*10+a[i] mod 10;
a[i]:=a[i] div 10;
end;
if tong = b then
write(b,' ');
end;
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
52 vote
Bạn muốn hỏi điều gì?
Đặt câu hỏiTham Gia Group Dành Cho Lớp 9 - Ôn Thi Vào Lớp 10 Miễn Phí
Một số nguyên dạng Palindrome là số mà đọc từ trái qua phải hay từ phải qua trái đều giống nhau, ví dụ các số
Palindrome: 101, 22, 123321.
Nhập vào một mảng n số nguyên âu, a2, ... ân. Hãy in ra các số Palindrome theo đúng thứ tự nhập.
Dữ liệu nhập:
Dòng thứ nhất là chiều dài n của mản ...
Bảng tin
Bạn muốn hỏi điều gì?
Đặt câu hỏi
Cơ quan chủ quản: Công ty Cổ phần Công nghệ Giáo dục Thành Phát
Tải ứng dụng
Inbox: m.me/hoidap247online
Trụ sở: Tầng 7, Tòa Intracom, số 82 Dịch Vọng Hậu, Cầu Giấy, Hà Nội.
Giấy phép thiết lập mạng xã hội trên mạng số 331/GP-BTTTT do Bộ Thông tin và Truyền thông.
878
16288
459
chx học function pali
4332
2959
1966
đợi chút
878
16288
459
ok
4332
2959
1966
rồi đó. code: uses crt; var n,i,s,p: integer; a: array[1..1000] of integer; begin clrscr; readln(n); for i:=1 to n do read(a[i]); for i:=1 to n do begin p:=a[i]; s:=0; while p>0 do begin s:=s*10+p mod 10; p:=p div 10; end; if s=a[i] then write(a[i],' '); end; readln end. Rút gọnrồi đó. code: uses crt; var n,i,s,p: integer; a: array[1..1000] of integer; begin clrscr; readln(n); for i:=1 to n do read(a[i]); for i:=1 to n do begin p:=a[i]; s:=0; while p>0 do begin s:=s*10+p mo... xem thêm
878
16288
459
Ok
878
16288
459
https://hoidap247.com/cau-hoi/4814345 Cứu