Question

Написать функцию вводящая число наоборот. Например, 123 - 321, 3210 - 0123

Answer 1

Ответ:

function reverse(s:string):string;

var s1:string;

i:integer;

begin

for i:=1 to length(s) do

s1:=s[i]+s1;

reverse:=s1;

end;

var s:string;

begin

readln(s);

s:=reverse(s);

writeln(s);

end.