Дана строка. Определить сколько в ней символов *, ; ,: - Pascal ABC
Формулировка задачи:
Помогите создать блок-схему и написать программу
Решение задачи: «Дана строка. Определить сколько в ней символов *, ; ,:»
textual
Листинг программы
Var s : string; a : set of char; i, k: integer; begin s:='mn,.::::;uiJgu*,.'; a:=['*', ':', ';']; k:=0; for i:=1 to length(s) do begin if (s[i] in A) then inc(k); end; Writeln(k); Readln; end.
Объяснение кода листинга программы
- В начале объявляются переменные: s - строка, a - множество символов, i - целое число, k - целое число.
- Строка s и множество a инициализируются.
- Затем идет цикл for, который проходит по каждому символу в строке s.
- Внутри цикла проверяется, содержится ли текущий символ в множестве a. Если да, то значение переменной k увеличивается на единицу.
- После завершения цикла выводится значение переменной k.
- Программа завершается с помощью команды Readln.