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

@kira318 · Регистрация: 24.03.2014

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

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

@Arigato · 26.03.2014, 20:10

Pascal

var
  s: string;
  c: char;
  i,k: byte;
begin
  write('Введите строку: '); readln(s);
  write('Введите символ: '); readln(c);
  k:=0;
  write('Номера позиций: ');
  for i:= 1 to length(s) do
    if s[i]=c then begin
      write(i, ' ');
      inc(k);
    end;
  writeln;
  writeln('Количество повторений заданого символа: ', k);
end.

@kira318 0 / 0 / 0 Регистрация: 24.03.2014 Сообщений: 12
		1
	Определить и вывести на экран номера позиций и количество повторений заданого символа в строке введенной с клавиатуры 26.03.2014, 18:46. Показов 3969. Ответов 1 Метки нет (Все метки) определить и вывести на экран номера позиций и количество повторений заданого символа в строке введенной с клавиатуры 0

Опции темы

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

Решение