Seaksat 27 ноября 2019 в 06:57
Помогите, Pascal ABC... Дано предложение. Если в этом предложении первая буква встречается более 3 раз, заменить её на восклицательный знак. Исходный текст задать самостоятельно таким образом, чтобы решалась задача.
Помогите, Pascal ABC... Дано предложение. Если в этом предложении первая буква встречается более 3 раз, заменить её на восклицательный знак. Исходный текст задать самостоятельно таким образом, чтобы решалась задача.
//PascalABC.NET 3.1 сборка 1239
begin
var s := ReadlnString(s =);
var c := s[1];
if s.ToLower().ToCharArray().Count(x -gt; x = c) gt;= 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 -gt; x = c) gt;= 3 then begin
s := s.Replace(LowCase(c), !);
s := s.Replace(UpCase(c), !);
end;
writeln(s);
end.
Компьютеры и вычисления
167
0
Для комментирования необходимо зарегистрироваться на сайте