кто знает я нажал на fn и ещё куда то на клавиатуре пк она перестала печатать но она включена. Я поставил все балы которые у меня были
180
260
Ответы на вопрос:
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.
!Для любого количества слов!
Пример работы:
Популярно: Информатика
-
HiКАK24.03.2022 03:12
-
Вилка00019.02.2023 03:04
-
krichilskaatтанюшка14.12.2022 03:28
-
lera10u30.11.2021 10:29
-
lyuda29m12.08.2021 02:23
-
IrishkaKoteika268918.08.2022 15:16
-
Поля20060101.07.2020 15:00
-
geliebtemutter26.01.2021 12:28
-
neket67888502.06.2020 18:42
-
rage1337105.12.2022 01:36