в паскале написать программу которая будет переворачивать число!(например:16 перевернет и будет 61)пожалуйста очень нужно!срочно!
Answers & Comments
beetle7
Var s1,s2:string; i:integer; begin readln(s1); s2:=s1; for i:=1 to length(s1) div 2 do begins1[i]:=s2[length(s1)+1-i]; s1[length(s1)+1-i]:=s2[i]; end; writeln(s1); end.
Answers & Comments
i:integer;
begin
readln(s1);
s2:=s1;
for i:=1 to length(s1) div 2 do
begins1[i]:=s2[length(s1)+1-i];
s1[length(s1)+1-i]:=s2[i];
end;
writeln(s1);
end.