Есть ответ 👍

кто знает я нажал на fn и ещё куда то на клавиатуре пк она перестала печатать но она включена. Я поставил все балы которые у меня были

180
260
Посмотреть ответы 2

Ответы на вопрос:

yegor655
4,4(46 оценок)

если не работает wasd то нажми fn + w,a,s,d


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.

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

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


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

Популярно: Информатика