Задана строка текста длиной не менее двадцати символов и задан один отдельный символ. Вычислить, какое количество раз этот символ встречается в строке

@Poldn · Регистрация: 21.02.2013

Author24 — интернет-сервис помощи студентам

1. Ввести множество, запись или строку с помощью клавиатуры.
2. Вывести на экран монитора исходную запись, множество или строку.
3. Выполнить необходимые преобразования над исходным множеством, записью
или строкой, а также выполнить необходимые вычисления.
4. Вывести на экран монитора преобразованное множество, запись или строку, а
также вывести результаты вычислений.

Задание: Задана строка текста длиной не менее двадцати символов и задан один отдельный символ. Вычислить, какое количество раз этот символ встречается в строке.

Заранее благодарю!

Kodzaev · 04.04.2013, 13:24

Pascal

Var
  s: String;
  c: Char;
  i,k: Byte;
BEGIN
Write('Введите строку: ');
Readln(s);
Write('Введите символ: ');
Readln(c);
For i:=1 to Length(s) do
If s[i]=c Then Inc(k);
Writeln('Заданный символ встречается в строке ',k,' раз(а)');
Readln
END.

@Poldn 0 / 0 / 0 Регистрация: 21.02.2013 Сообщений: 22
		1
	Задана строка текста длиной не менее двадцати символов и задан один отдельный символ. Вычислить, какое количество раз этот символ встречается в строке 04.04.2013, 13:14. Показов 1996. Ответов 1 Метки нет (Все метки) 1. Ввести множество, запись или строку с помощью клавиатуры. 2. Вывести на экран монитора исходную запись, множество или строку. 3. Выполнить необходимые преобразования над исходным множеством, записью или строкой, а также выполнить необходимые вычисления. 4. Вывести на экран монитора преобразованное множество, запись или строку, а также вывести результаты вычислений. Задание: Задана строка текста длиной не менее двадцати символов и задан один отдельный символ. Вычислить, какое количество раз этот символ встречается в строке. Заранее благодарю! 0

	04.04.2013, 13:24

Задана строка текста длиной не менее двадцати символов и задан один отдельный символ. Вычислить, какое количество раз этот символ встречается в строке

Решение