Question

[Son Luong]

Viết chương trình nhập một xâu vào từ bàn phím và đưa ra màn hình xâu đó nhưng viết theo thứ tự ngược lại mà ko cần dùng lệnh for...down..to

Answer 1

[nguyễn an phát]

program in_xau;

uses crt;

var i:integer;

st1,st2:string;

begin

clrscr;

write('nhap xau:');readln(st1);

st2:='';

i:=length(st1);

while i>=1 do

begin

st2:=st2+st1[i];

i:=i-1;

end;

write(st2);

readln;

end.