Tin học In xâu và xâu đảo ngược

[T_P_]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Nhập vào một xâu Z , in ra xâu Z và đảo ngược của Z (liền nhau) [Pascal]

Input : abc
Output : abccba


var a:string;
i,k:byte;
begin
write(a);
readln(a);
k:=length(a);
for i:=k downto 1 do write(a);
writeln(a);
readln;
end.

mình làm toàn ra cbaabc.

 

[02-07-2019.]

Nhập vào một xâu Z , in ra xâu Z và đảo ngược của Z (liền nhau) [Pascal]

Input : abc
Output : abccba


var a:string;
i,k:byte;
begin
write(a);
readln(a);
k:=length(a);
for i:=k downto 1 do write(a);
writeln(a);
readln;
end.

mình làm toàn ra cbaabc.

var a:string;
i,k:byte;
begin
          readln(a);
           Write(a);
           k:=length(a);
        for i:=k downto 1 do write(a[i]);
       readln;
end.

Code mình đây!
Chỗ write(a) của bạn ( sau ''do'') là viết lại cả xâu ''a'' rồi nó sẽ lặp lại length(a) lần.
Bỏ cái writeln(a) đi!