Получить число, состоящего из цифр числа a, записанных в не убывающем порядке. 3/5 тестов.

[Serge_Bliznykov]

Сообщение от Кольша

var
s,e:string;
i:integer;
begin
s:='123';
e:='';
for i:=1 to lenght(s) do
e:=e+s[lenght(s)-1];
if strtoint(e)<=strtoint(s) then
e:=s;
showmessage(e);

как то так

кошмар и ужас!

во-первых, функция получения длины пишется так: length

во-вторых, когда Вы уже научитесь, что прежде чем опубликовать свой код, нужно его проверять?!!
Ваш код выдаёт "222", что, разумеется, неверно!

в-третьих, какое отношение реверс строки имеет к данной задаче?!
для числа 314 что вы реверсировать будете?!




p.s.

Сообщение от Plague

а принятые принципы записи чисел в математике никому кому ненужны.

ну Вы зря ёрничаете, ну честно слово!
согласен я с вашим замечанием, СОГЛАСЕН!
для числа 704 программа должна выдать ответ 47