16 lines
248 B
Turing
16 lines
248 B
Turing
% Reverse a string
|
|
|
|
var input : string (100)
|
|
|
|
put "Enter a string to reverse: " ..
|
|
get input
|
|
|
|
var count : int := length(input)
|
|
loop
|
|
if count >= 1 then
|
|
put input(count) ..
|
|
else
|
|
exit
|
|
end if
|
|
count := count - 1
|
|
end loop
|