номер 17:
номер 19 не видно до конца
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger;
var s:=n.ToString;
var d:=s[s.Length-1];
s.Where(c->c>d).Count.Println
end.
<u>Пример</u>
15334
2
А что удивляет? Вы рассматриваете элементы с номерами, не кратными 3. Операция нахождения остатка от целочисленного деления при делении нуля на n всегда дает ноль, поэтому ноль получается кратен любому числу.
Вы рассматриваете элементы с индексами 1,2,4,5,7,8,10,11,13 - всего 9 элементов.
И да - при таком условии элемент с нулевым индексом в эту совокупность элементов не входит.
100_2 = 4
100_3 = 9
100_4 = 16
100_5 = 25
100_6 = 36
100_7 = 49
100_8 = 64
100_9 = 81
100_10 = 100
100_11 = 121
100_12 = 144
100_13 = 169
100_14 = 196
100_15 = 225
100_16 = 256
100_17 = 289
100_18 = 324
100_19 = 361
100_20 = 400
100_21 = 441
100_22 = 484
100_23 = 529
100_24 = 576
100_25 = 625
100_26 = 676
100_27 = 729
100_28 = 784
100_29 = 841
100_30 = 900
100_31 = 961
100_32 = 1024
100_33 = 1089
100_34 = 1156
100_35 = 1225
100_36 = 1296
Свойства системы. Откройте «Панель управления» компьютером и перейдите в ней в раздел «Свойства системы», где будут отражены основные показатели производительности компьютера. включая название и тактовую частоту процессора. Для выхода из свойств системы нажмите кнопку «Ок».