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

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.

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

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

ответ:1) (1 б.) Верные ответы: 3;

2) (1 б.) Верные ответы: 4;

3) (1 б.) Верные ответы: 1; 2;

4) (1 б.) Верные ответы: 3;

5) (1 б.) Верные ответы: 1;

6) (1 б.) Верные ответы: 3;

7) (1 б.) Верные ответы: 4;

8) (1 б.) Верные ответы: 1;

9) (1 б.) Верные ответы: 3;

10) (1 б.) Верные ответы: 3;

11) (1 б.) Верные ответы: 2;

12) (1 б.) Верные ответы: 3;

13) (1 б.) Верные ответы: 4;

14) (1 б.) Верные ответы: 1;

15) (1 б.) Верные ответы: 1; 2;

16) (1 б.) Верные ответы: 1;

17) (1 б.) Верные ответы: 2;

18) (1 б.) Верные ответы: 1;

19) (1 б.) Верные ответы: 3;

20) (1 б.) Верные ответы: 2;

21) (1 б.) Верные ответы: 2;

Объяснение:

1. 9

2.15

3. 0

4. 48

5. 5

6. 60

7. 3

8.

9. 48

10. 26

Объяснение:

Если мы напишем программу, то она сможет посчитать кол-во, повторений. В 3 почему 0, это из-за того что цикл не выполниться ни разу. В 4 почему 48, да потому что мы от 8 - 3 = 5, значит цикл повториться 5 раз, следовательно идём таким путём:

0. S = 8;

1.  S = 16; // 8 + 8

2. S = 24. // 16 + 8

3. S = 32; // 24 + 8

4. S = 40; // 32 + 8

5. S = 48 // 40 + 8

10 Вопрос можно решить и вторым кстати он считается как самый быстрый.

С = 50;

1. 9 - 1 = 8, цикл должен выполниться 8 раз

2. Мы видем что в теле программы c = c - 3, значит 8 * 3 = 24

3.  Следовательно c = 50 - 24

ответ 26