Question

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

Answer 1

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.

Answer 2

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.

Answer 3

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

Answer 4

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

Answer 5

"PascalABC.NET 2015-2016 меняет стиль решения ряда задач. Код становится более простым, понятным, легче пишется и меняется.
Богатый набор стандартных классов -
коллекций существенно расширяет набор простых задач, которые можно решать на PascalABC.NET.
Методы, встроенные в символы, строки, текстовые файлы, позволяют в несколько раз сократить решения, связанные с обработкой текстовой информации."

Answer 6

Читайте подробности на сайте разработчиков: http://pascalabc.net/downloads/Presentations/PABC.NET_2015-2016.pdf