Даны два слова. Определить, в котором из них букв «а» больше ПАСКАЛЬ.

Question

Информатика: Даны два слова. Определить, в котором из них букв «а» больше ПАСКАЛЬ.​

gnbufa · Answer

PascalABC.NETbeginvar s := ReadString.ToWords.Select(x->x.Count(c->c='а')).ToArray; if s.All(x->x=s[0]) then Print('Одинаково') else Print('Больше в',s.IndexMax+1) end.

!Для любого количества слов!

Пример работы:

Даны два слова. Определить, в котором из них букв «а» больше ПАСКАЛЬ.

Даны два слова. Определить, в котором из них букв «а» больше ПАСКАЛЬ.​

Даны два слова. Определить, в котором из них букв «а» больше ПАСКАЛЬ.