Сначала массив Dat заполняется числами 2, 8, 6, ..., 7. Затем производится поиск максимума среди Dat[1], Dat[8..12] (стандартный алгоритм: в m хранится текущий максимум, в month – номер месяца, в котором этот максимум впервые реализуется. Перед циклом m = Dat[1], month = 1, в цикле если элемент массива больше текущего максимума, то текущий максимум и номер месяца перезаписываются). Наконец, выводится month – номер месяца, в котором впервые количество детских праздников достигает максимума.
Максимальное значение равно 8, впервые встречается среди Dat[1], Dat[8..12] в Dat[9].
1) Основной инструмент передачи, хранения и обработки информации (9 букв).-компьютер 2) Основное устройство ввода информации (10 букв).-клавиатура 3) "Мозг" компьютера (9 букв).-процессор 4) Устройство вывода информации (7 букв).-монитор 5) Устройство хранения программ и данных (6 букв).-память 6) Устройство для быстрого перемещения по экрану и выбора информации (4 буквы).-мышь 7) Носитель информации, на который записывают программы для хранения (7 букв).-дискета 8) Другое название жёсткого диска (9 букв). -винчестер 9) Устройство, с которого можно вывести на бумагу тексты и рисунки (7 букв).-принтер
===== PascalABC.NET =====
begin
var s := 0.0;
for var j := 1 to 3 do
begin
var p := 1.0;
for var i := 1 to 3 do
p *= 2 ** (i + j) / (i * i + j * j * j);
s += p
end;
Println(s)
end.