Определить номера позиций и количество повторений заданного символа в строке

@vadim77 · Регистрация: 24.08.2010

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

Определить и вывести на экран номера позиций и количество повторений заданного символа (или его кол-ва) в строке, введенной с клавиатуры.

@CodeR · 29.05.2012, 07:54

Pascal

Var s:string;
    i,k:integer;
    a:char;
Begin
    write('Введите строку: ');readln(s);
    write('Введите символ: ');readln(a);
    k:=Pos(a,s);
    if k<>0 then write('Номера позиций: ');
    k:=0;
    For i:=1 to Length(s) do
     if s[i]=a then 
      Begin
       write(i:3);
       inc(k);
      End;
     writeln;
    if k<>0 then writeln('Встречается ',k,' раз') else writeln('Не встречается');
End.

@vadim77 1 / 1 / 0 Регистрация: 24.08.2010 Сообщений: 157
		1
	Определить номера позиций и количество повторений заданного символа в строке 29.05.2012, 06:56. Показов 2745. Ответов 1 Метки нет (Все метки) Определить и вывести на экран номера позиций и количество повторений заданного символа (или его кол-ва) в строке, введенной с клавиатуры. 0

Опции темы

Определить номера позиций и количество повторений заданного символа в строке

Решение