Получить новое число из заданного при записи его цифр в обратном порядке (проверить)

@Zakievadel · Регистрация: 17.10.2012

Студворк — интернет-сервис помощи студентам

Вот задание:
Написать программу, которая получает новое число, образующееся из заданного натурального числа при записи его цифр в обратном порядке.

Вот что у меня есть:

Pascal

var
s,m,st:string;
i:integer;
procedure moveleft(var x,y:string);
begin
st:=x[1]+st;
delete(x,1,1);
if x<>'' then moveleft(x,st) else x:=st;
end;
begin
readln(s);
m:=s;
for i:=2 to length(s) do
begin
moveleft(s,st);
if s>m then m:=s;
end;
writeln(m);
end.

Программа работает если последнее число больше первого, а наоборот нет.

@CodeR · 08.01.2013, 09:35

Pascal

var
s,st:string;
i:integer;
begin
readln(s);
st:='';
For i:=1 to Length(s) do
 st:=s[i]+st;
writeln(st);
end.

	08.01.2013, 09:35

Опции темы