Напишите программу, подсчитывающую количество вхождений заданной вами буквы в введенной строке

@Artem lupin · Регистрация: 18.12.2018

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

Напишите программу, подсчитывающую количество вхождений заданной вами буквы в введенной строке.

@JuriiMW · 02.02.2019, 09:10

Pascal

var
  s : String;
  c : Char;
  i, n : Integer;
begin
  Write('s : '); ReadLn(s);
  Write('c : '); ReadLn(c);
  n := 0;
  for i := 1 to Length(s) do
    if s[i] = c then
      Inc(n);
  WriteLn(n);
end.

@Artem lupin · 02.02.2019, 10:32 **[ТС]**

спасибо

@bormant · 06.02.2019, 16:17

Для Turbo Pascal можно чуть короче:

Pascal

8 9	for i:=1 to Length(s) do Inc(n,Ord(c=s[i])); WriteLn(n);

@Artem lupin 0 / 0 / 0 Регистрация: 18.12.2018 Сообщений: 18
		1
	Напишите программу, подсчитывающую количество вхождений заданной вами буквы в введенной строке 01.02.2019, 17:08. Показов 5367. Ответов 3 Метки нет (Все метки) Напишите программу, подсчитывающую количество вхождений заданной вами буквы в введенной строке. 0

@Artem lupin 0 / 0 / 0 Регистрация: 18.12.2018 Сообщений: 18
	02.02.2019, 10:32 [ТС]	3
	спасибо 0

	06.02.2019, 16:17

Опции темы

Напишите программу, подсчитывающую количество вхождений заданной вами буквы в введенной строке

Решение