Cho một xâu 's' in ra phần tử có vị trí lẻ ở trong xâu Vd : 'lop 11a3' Output: Lp1A
1 câu trả lời
program xaule;
uses crt;
var st:string;
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(st);
write('Xau duoc tao thanh tu cac vi tri le la: ');
for i:=1 to length(st) do
if i mod 2=1 then write(st[i]);
readln
end.
