PASCAL. Дана строка, среди которой есть символы / \ | . Посчитать их количество(по отдельности).

Предыдущий
вопрос Следующий
вопрос

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

program CountCharacters;
var
str: string;
i, countSlash, countBackslash, countVerticalBar, countDot: integer;
begin
countSlash := 0;
countBackslash := 0;
countVerticalBar := 0;
countDot := 0;
writeln('Введите строку:');
readln(str);
for i := 1 to length(str) do
begin
case str[i] of
'/': countSlash := countSlash + 1;
'\': countBackslash := countBackslash + 1;
'|': countVerticalBar := countVerticalBar + 1;
'.': countDot := countDot + 1;
end;
end;
writeln('Количество символов / в строке: ', countSlash);
writeln('Количество символов \ в строке: ', countBackslash);
writeln('Количество символов | в строке: ', countVerticalBar);
writeln('Количество символов . в строке: ', countDot);
end.

Программа сначала запрашивает у пользователя ввести строку, затем использует цикл для перебора всех символов в строке и подсчета количества символов /, \, | и .. После этого программа выводит количество каждого символа в строке.