Question

Дана строка символов s и,далее,отдельно в новой строке дан одиночный символ с.Напишите программу,которая подсчитает,сколько раз символ с встретился в данной строке s.Составить блок-схему,не используя цикл с параметром.

Answer 1

Var S:string;
    C:char;
    i,k:integer;
Begin
WriteLn('Введите строку');
ReadLn(S);
WriteLn('Введите символ');
ReadLn(C);
i:=1;
k:=0;
While i<=Length(S) do
   Begin
   if S[i] = C then k:=k+1;
   i:=i+1
   End;
WriteLn(k);
End.

Answer 2

markdownCopy code
START
  1. Прочитать строку s и символ c
  2. Установить переменную count в 0
  3. Установить переменную i в 0
  4. Установить переменную n равной длине строки s
  5. Если n равно 0, перейти к шагу 10
  6. Если s[i] равно c, увеличить count на 1
  7. Увеличить i на 1
  8. Если i меньше n, перейти к шагу 6
  9. Вывести count
  10. Завершить выполнение программы

Объяснение:

1. Считываем строку s и символ c.
2. Создаем переменную count, которая будет считать количество вхождений символа c.
3. Создаем переменную i, которая будет использоваться для итерации по символам в строке s.
4. Создаем переменную n, которая будет хранить длину строки s.
5. Если длина строки s равна 0, переходим к шагу 10, так как символ c не может встречаться в пустой строке.
6. Если текущий символ s[i] равен c, увеличиваем счетчик count.
7. Увеличиваем значение i на 1.
8. Если i меньше длины строки s, переходим к шагу 6, чтобы проверить следующий символ.
9. Выводим значение count.
10. Завершаем выполнение программы.