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

Для решения этой задачи вам необходимо прочитать строку из ввода и затем пройтись по каждому символу в строке, подсчитывая количество его вхождений в строку. После этого вы можете пройтись по строке еще раз и подсчитать количество символов, которые встречаются только один раз.

Вот пример кода на языке Pascal ABC.NET, который решает эту задачу:

cssCopy code
var
  inputString: string;
  charCount: array['a'..'z'] of integer;
  uniqueCharCount: integer;
  i: integer;
begin
  // Считываем строку из ввода
  readln(inputString);
  
  // Заполняем массив charCount нулями
  for i := ord('a') to ord('z') do
    charCount[chr(i)] := 0;
  
  // Считаем количество вхождений каждого символа в строку
  for i := 1 to length(inputString) do
    inc(charCount[inputString[i]]);
  
  // Считаем количество символов, которые встречаются только один раз
  uniqueCharCount := 0;
  for i := ord('a') to ord('z') do
    if charCount[chr(i)] = 1 then
      inc(uniqueCharCount);
  
  writeln('Количество символов, которые встречаются только 1 раз: ', uniqueCharCount);
end.

Этот код считывает строку из ввода, затем заполняет массив charCount нулями и считает количество вхождений каждого символа в строку. Затем он проходит по всем символам от 'a' до 'z' и считает количество символов, которые встречаются только один раз. Количество таких символов выводится на экран.