Pascal дано предложение. если в этом предложении первая буква встречается более 3 раз, заменить её на восклицательный знак. исходный текст задать самостоятельно таким образом, чтобы решалась .

mikerinavera mikerinavera    1   28.07.2019 20:20    1

Ответы
мод7 мод7  03.10.2020 15:57
//PascalABC.NET 3.1 сборка 1239
begin
    var s := ReadlnString('s =');
    var c := s[1];
    
    if s.ToLower().ToCharArray().Count(x -> x = c) >= 3 then begin
        s := s.Replace(LowCase(c), '!');
        s := s.Replace(UpCase(c), '!');
    end;
    
    writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика