Срочно!Напишите функцию в Паскале,которая "разворачивает" десятичную запись числа наоборот,например,из 123 получается 321,а из 3210-0123.(именно через функцию и пжл с объяснением)
Answers & Comments
PopCop312
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.
Answers & Comments
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.