Регистрация
diatel83
30.06.2023 19:59
Информатика
Есть ответ 👍

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

189
425
Посмотреть ответы 2

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

alimbekoffniki
alimbekoffniki
4,4(61 оценок)
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.

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

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


Даны два слова. Определить, в котором из них букв «а» больше ПАСКАЛЬ.​
Даны два слова. Определить, в котором из них букв «а» больше ПАСКАЛЬ.​
Катрина228Беккер
Катрина228Беккер
4,4(96 оценок)
1килобайт=1024 байт следовательно в 4 килобайтах будет 1024•4=4096 байт

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