!!!Ввести целое число и определить, верно ли, что все его цифры расположены в порядке...

Question

!!!Ввести целое число и определить, верно ли, что все его цифры расположены в порядке возрастания. паскаль!!!

Comments

f:=1;While A div 10 <>0 do Begin if (A div 10) mod 10 then f:=0; A:=A div 10 End;Write(f = 1)

---

АААА ВЕРА СОЛОДОВА ИЗ 261

Answer 1

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger;
  var s:=n.ToString;
  if s.OrderBy(c->c).JoinIntoString=s then Writeln('Верно')
  else Writeln('Неверно')
end.

Пример
125679
Верно