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

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.

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

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

"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.