Viết chương trình nhập 1 xâu từ bàn phím cho tên biến T. Ghi xâu đã nhập ra màn hình ghi xâu viết ngược trình tự của xâu đã nhập ra màn hình
2 câu trả lời
uses crt;
var T:string; i:byte;
begin
clrscr;
write('Nhap xau: '); readln(T);
write('Xau la: ',T);
writeln;
write('Xau viet nguoc la: ');
for i:=length(T) downto 1 do write(T[i]);
readln
end.
Var T: string;
i: integer;
Begin
clrscr;
Readln(T);
Writeln(T);
For i:= lenght(T) to 1 do
Write(T[i]);
End.
Câu hỏi trong lớp
Xem thêm
