Дана строка. Определить сколько в ней символов *, ; ,: - 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.

Объяснение кода листинга программы

  1. В начале объявляются переменные: s - строка, a - множество символов, i - целое число, k - целое число.
  2. Строка s и множество a инициализируются.
  3. Затем идет цикл for, который проходит по каждому символу в строке s.
  4. Внутри цикла проверяется, содержится ли текущий символ в множестве a. Если да, то значение переменной k увеличивается на единицу.
  5. После завершения цикла выводится значение переменной k.
  6. Программа завершается с помощью команды Readln.

Оцени полезность:

12   голосов , оценка 4.417 из 5
Похожие ответы