Вывести символы, которые встречаются более 2х раз.

@SashaPr · Регистрация: 01.03.2012

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

@Петррр · 05.04.2012, 18:52

Pascal

program pro;
uses
    crt;
var
   s: string;
   i: integer;
   m: set of char;
   function count(const str: string; ch: char): integer;
   var
      i: integer;
      c: integer;
   begin
        c := 0;
        for i := 1 to length(str) do
            if (str[i] = ch) then
               inc(c);
        count := c;
   end;
begin
     m := [];
     clrscr;
     write('please enter string: ');
     readln(s);
     for i := 1 to length(s) do
         if (count(s, s[i]) > 2) and (not (s[i] in m)) then
         begin
            write(s[i], ' ');
            m := m + [s[i]];
         end;
     writeln;
     writeln('press any key . . . ');
     readkey;
end.

@SashaPr 0 / 0 / 0 Регистрация: 01.03.2012 Сообщений: 32
		1
	Вывести символы, которые встречаются более 2х раз. 05.04.2012, 17:38. Показов 1720. Ответов 1 Метки нет (Все метки) Вывести символы, которые встречаются более 2х раз. 0

Опции темы

Вывести символы, которые встречаются более 2х раз.

Решение