• Определите, сколько в строке символов, которые встречаются только 1 раз?язык программирования pascal abc.net

Ответы 6

  • var c: integer; b: boolean;begin b := true; var s := readstring(); for var i := 1 to s.Length do begin for var j := 1 to s.Length do begin if (s[i] = s[j]) and (i <> j) then begin b := false;break; end else end; if (b = true) then c := c + 1; b := true; end; write(c);end.
    • Автор:

      salem97
    • 6 лет назад
    • 0
  • Если Вы не понимаете кода, то это Ваши проблемы. Вы указали язык PascalABC.Net. Это современный и очень развитый язык, на котором можно писать совершенно по-разному. Если Вы хотите сузить круг возможностей, то и указывайте, что нужно использовать только подмножество языка, совместимое, к примеру, с Pascal ABC или Free Pascal.
    • Автор:

      amosv4ff
    • 6 лет назад
    • 0
  • А так, как в Вашем примере выше, на PascalABC.Net уже давно не пишут. На это прямо указывают разработчики этой версии языка.
    • Автор:

      geniekvaa
    • 6 лет назад
    • 0
  • "PascalABC.NET 2015-2016 меняет стиль решения ряда задач. Код становится более простым, понятным, легче пишется и меняется.Богатый набор стандартных классов -коллекций существенно расширяет набор простых задач, которые можно решать на PascalABC.NET.Методы, встроенные в символы, строки, текстовые файлы, позволяют в несколько раз сократить решения, связанные с обработкой текстовой информации."
  • Читайте подробности на сайте разработчиков: http://pascalabc.net/downloads/Presentations/PABC.NET_2015-2016.pdf
  • var c: integer; b: boolean; begin b := true; var s := readstring(); for var i := 1 to s.Length do begin for var j := 1 to s.Length do begin if (s[i] = s[j]) and (i <> j) then begin b := false;break; end else end; if (b = true) then c := c + 1; b := true; end; write(c); end.
    • Автор:

      alliekjrk
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years