Bài 12: Kiểu xâu

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Ng Ngân

Viết chương trình PYTHON nhập vào 1 dãy số, xoá bỏ các số lẻ, xuất kết quả dưới dạng đối xứng của phần còn lại

Sơn Mai Thanh Hoàng
22 tháng 3 2022 lúc 22:22

REFER

uses crt;
var a:array[1..255]of byte;
n,i,kt:integer;
st,st1:string;
begin
clrscr;
write('nhap chieu dai day so:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-------------------------------xu-ly---------------------------------}
st:=''
kt:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
str(a[i],st1);
kt:=1;
st:=st+st1;
end;
if kt>0 then
begin
write('doi xung cua cac so chan la: ');
for i:=1 to length(st) do
write(st[i]:4);
for i:=length(st) downto 1 do
write(st[i]:4);
end;
readln;
end.


Các câu hỏi tương tự
NTKL
Xem chi tiết
Duy Nguyễn
Xem chi tiết
Ola Oly
Xem chi tiết
Phượng Hà Thị
Xem chi tiết
nguyễn an phát
Xem chi tiết
B2_Đinh Thị Huệ
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Nguyên văn A
Xem chi tiết
Harunastu
Xem chi tiết