nata27-73589
?>

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

Информатика

Ответы

Maloletkina-marina2
// 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
Верно
anton
В СССР доступные бытовые магнитофоны распространились примерно со второй половины 1950-х — начала 1960-х годов. В это время возникло особое социальное явление — магнитофонная культура или «магнитиздат». Легкость копирования магнитных записей позволила почти неограниченно распространять произведения, не одобрявшиеся официальной идеологией, но популярные в народе: песни бардов и первых полуподпольных рок-групп, западную популярную музыку, неофициальные выступления писателей-сатириков, лекции по уфологии, передачи «вражеских голосов» и т. п.[30][31] Магнитофоны быстро вытеснили с рынка кустарную грамзапись — грампластинки, записанные на использованной рентгенопленке («музыка на ребрах»).
ninakucherowa
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var a:=ReadLines('m17.txt').JoinIntoString.ToIntegers;
  a.Println;
  var b:=a.Select((x,i)->Rec(x,i)).Where(x->x.Item1<0)
    .Select(x->x.Item2).ToArray;
  if b.Count<>2 then
    Writeln('Количество отрицательных элементов не равно двум')
  else begin
    a:=SeqFill(b[0],0).Concat(a.Skip(b[0]).Take(b[1]-b[0]+1))
      .Concat(SeqFill(a.Length-b[1]-1,0)).ToArray;
    a.Println
    end
end.

Тестовое решение:
23 14 7 15 0 13 -6 41 18 13 8 42 27 -11 3 19 10
0 0 0 0 0 0 -6 41 18 13 8 42 27 -11 0 0 0

Файл с исходными данными имеет имя m17.txt. Тестовый файл находится во вложении. Разбивка на строки сделана по 5 значений, но может быть совершенно произвольной. Также нет привязки именно к 17 числам, главное - чтобы отрицательных чисел было ровно два, иначе будет выдано сообщение о их неверном количестве.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Ввести целое число и определить, верно ли, что все его цифры расположены в порядке возрастания.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

aynaakzhigitova
o-lala88387
samiramoskva
Dmitrii sergei463
TatarkovTitova
premiumoft
moskwa999
Шитенков
ВладимировнаИП37
MikhailovnaAnastasiya
dionissia2
shpakohat
rikki07834591
billl24
Ерохин