Question

Помогите составить программу по информатике. Дано предложение. Вычислить сколько в нем разных(неповторяющихся) знаков препинания.

Answer 1

Пример решения задачи на языке PascalABC:

var

 J:Array of Char:=('.','!','?',',',';',':','-','(',')','"');

 T:=0;

begin

 var s:string; readln(s);

 var N:=S.ToCharArray;

 for var l:=1 to J.High do

   if N.FindAll(x->(x = J[l]) = true).Length <> 0 then inc(T);

 write('В предложении ',(T<>0)? T.ToString:'не содержится',' уникальных знаков препинания');

end.

Answer 2

Конечно, вот простая программа на языке Python, которая поможет вам вычислить количество разных знаков препинания в данном предложении:

pythonCopy code
# Введите предложение
sentence = input("Введите предложение: ")

# Инициализируем множество для хранения знаков препинания
punctuation_set = set()

# Определяем список знаков препинания
punctuation_marks = [',', '.', '!', '?', ':', ';', '-', '(', ')', '[', ']', '{', '}']

# Перебираем символы в предложении и добавляем знаки препинания в множество
for char in sentence:
    if char in punctuation_marks:
        punctuation_set.add(char)

# Выводим результат
print("Количество разных знаков препинания в предложении:", len(punctuation_set))

Просто скопируйте этот код в среду программирования Python и выполните его. После ввода предложения программа выведет количество различных знаков препинания в данной строке.