

Код: Выделить всё
I:=1;
While (I<=5)and(l[i]=s[i]) do inc(i);
If i>5 then writeln('the same')
else
if ord(l[i])<ords[i] then writeln(l,' ',s) else writeln(s,' ',l);
А что, нужно именно списки использовать?" писал(а): дружу со строкамии списками
MOTOCoder писал(а):А что, нужно именно списки использовать?
Medved писал(а):Так достаточно того, что я написал, или разъяснить поточнее?
kisa, внизу есть кнопка "Расширенный режим" - когда её нажмёшь, то для ответа откроется страница, там внизу есть "Управление вложениями" - нажимай, и указывай свой файлик (не забудь запаковать предварительно)...kisa писал(а):тут как нибудь файлик оставить