Shaligrinn
5 год назад
Вывести на экран все слова из К букв, в которых буква Ывстречается более 1 раза, и подсчитать их количество.
ОТВЕТЫ
Кръстина
Oct 24, 2020
//PascalABC.NET 3.2 сборка 1318
begin
var ars:=readstring().Split;
var k:=readinteger();
ars.Where(x -> length(x)=k).Where(x -> x.where(y -> lowcase(y)='ы').count>1).Print;
end.
было быыть будет
5
быыть
begin
var ars:=readstring().Split;
var k:=readinteger();
ars.Where(x -> length(x)=k).Where(x -> x.where(y -> lowcase(y)='ы').count>1).Print;
end.
было быыть будет
5
быыть
412
Смежные вопросы:
