Cho một xâu ‘s’ in ra phần tử có vị trí lẻ ở trong xâu Vd : ‘lop 11a3’ Output: Lp1A 25/07/2021 Bởi Charlie Cho một xâu ‘s’ in ra phần tử có vị trí lẻ ở trong xâu Vd : ‘lop 11a3’ Output: Lp1A
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. Bình luận
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.