m làm đc rồi! b xem giúp m nhé!
1. var: a, b: string;
i, x: byte;
begin
writeln('nhap xau');
readln(a);
x:= length(a);
b:= ' '; {khoi tao xau rong}
for i: 1 to x do
if a <> ' ' then write(a) else
readln
end.

cau 2:var: i: byte;
a, b: string;
begin
write ( ' nhap xau');
readln(a);
b:= ' ';{ khoi tao xau rong}
for i: 1 to length(a) do
if a= 1+i then write(a) elses;
readln
end.
hôm wa b có lên k?
m 8h 30 mới lên nhưng k thấy b!
sửa giúp m nhé! chắc sai rồi.