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

Question

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

Answer 1

PascalABC.NET

Ответ:

• begin
• var 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.

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

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