Ввести целое число и определить, верно ли, что - вопрос №7616716 от Valerykh123 27.06.2021 16:06

Question

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

Valerykh123 · Answer

// 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
Верно