Предмет: Информатика,
автор: verasolodova20
!!!Ввести целое число и определить, верно ли, что все его цифры расположены в порядке возрастания. паскаль!!!
Ответы
Автор ответа:
0
// 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
Верно
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger;
var s:=n.ToString;
if s.OrderBy(c->c).JoinIntoString=s then Writeln('Верно')
else Writeln('Неверно')
end.
Пример
125679
Верно
Похожие вопросы
Предмет: Биология,
автор: medinadyussembayeva
Предмет: География,
автор: Аноним
Предмет: Математика,
автор: svetlanay1955
Предмет: Литература,
автор: denis00089
Предмет: Математика,
автор: kohanevich82