Hãy viết chương trình nhập vào 1 chuỗi và in ra chuỗi viết ngược của nó Nhập chuỗi: abcDfe Kết quả: efDcba
2 câu trả lời
Program tudat;
Uses crt;
Var s:string;
I:integer;
Begin
Write('nhap chuoi: '); readln(s);
For i:= length(s) downto 1 do
Write(s[i]);
Readln;
End.
uses crt;
var str:string;
i:byte;
begin
clrscr;
readln(str);
for i:=length(str) downto 1 do write(str[i]);
readln;
end.
Câu hỏi trong lớp
Xem thêm
