code. compile. run. debug. share.
program ReverseString;
function revstr(my_s:string):string;
var
out_s: string;
ls, i: integer;
begin
out_s := '';
ls:=length(my_s);
for i:=1 to ls do
out_s:=out_s+my_s[ls-i+1];
revstr:=out_s;
end;
var
original, reversed: string;
begin
original := 'Hello World';
reversed := revstr(original);
Writeln('Original: ' + original);
Writeln('Reversed: ' + reversed);
end.
Compiling Program...
Standard Input:
Interactive Console
Text
Program is not being debugged. Click "Debug" button to start program in debug mode.
| # | Function | File:Line |
|---|
| Variable | Value |
|---|
| Register | Value |
|---|
| Expression | Value |
|---|
| # | Description |
|---|