===== PascalABC.NET =====
begin
Range(1582, 3000)
.Where(y -> (y mod 100 = 0) and (y mod 400 <> 0))
.Print
end.
129(10) = 81(16) = 201(8) = 10000001(2)
257(10) = 101(16) = 401(8) =100000001(2)
1023(10) = 3FF(16) = 1777(8) =1111111111(2)
var
a: array [1..10] of integer;
i, max: integer;
begin
max:= 0;
write('Исходный массив: ');
for i:= 1 to 10 do
begin
a[i]:= random(10);
write(a[i], ' ');
if (i mod 2 = 0) and (a[i] > max) then
max:= a[i];
end;
writeln;
writeln('Максимальный элемент массива среди элементов с четными индексами: ', max);
end.
Если что не понятно - спрашивай.
Program gg;
var count: integer;
begin count := 1 * 4 + 2 * 4 + 3 * 4 + 4 * 4 + 4 * 5 + 4 * 6 + 4 * 7 + 4 * 8 + 4 * 9; writeln(count);<span>end.</span>
При таком раскладе количество комбинаций будет равно 63.