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

AlsiMaksimowa AlsiMaksimowa    3   26.08.2019 20:50    1

Ответы
Roma99812 Roma99812  05.10.2020 21:36
// PascalABC.NET 3.2, сборка 1407 от 18.03.2017
// Внимание! Если программа не работает, обновите версию!

function Good(s:string):boolean;
begin
  var n:=s.Length;
  var t:=s.ToCharArray.Distinct;
  Result:=false;
  foreach var c in t do begin
    var k:=0;
    for var i:=1 to n do
      if s[i]=c then k+=1;
    if k=3 then begin Result:=true; Break end
    end;
end;

begin
  var aw:=ReadlnString('Ведите строку:').ToWords;
  var aw2:=aw.Where(w->Good(w));
  aw2.Println;
end.

Пример
Ведите строку: корова барометр молоко длинношеее перемена соответствие кровообращение молоковоз борода
молоко длинношеее перемена соответствие кровообращение
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика