Помогите, Pascal ABC... Дано предложение. Если в этом предложении первая буква встречается более 3 раз, заменить её на восклицательный знак. Исходный текст задать самостоятельно таким образом, чтобы решалась задача.
Ответы
Ответ дал:
0
//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.
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.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад