Доска для гексагональных шахмат имеет вид шестиугольника со стороной 6, собранного из 91 единичных шестиугольников, как показано на рисунке ниже, изображающем также начальную позицию в шестиугольных шахматах.
Аналоги вертикалей (их всего 11) занумерованы строчными латинскими буквами от `a' до `k' включительно. 11 горизонталей имеют V-образную форму и пронумерованы от 1 до 11 снизу вверх. Таким образом, каждая клетка, по аналогии с обычной шахматной нотацией имеет уникальную запись. Например, на горизонтали 11 есть только клетка “f11”, а вся горизонталь 7 на рисунке выше целиком занята чёрными пешками.
Ладья может перемещаться на произвольное количество шестиугольных клеток в любом из 6 направлений, как показано на иллюстрации ниже.
Вам даны два поля на шестиугольной доске. Требуется найти количество которыми ладья сможет дойти от первого поля до второго ровно за два хода.
Формат ввода
Входные данные содержат координаты двух различных полей в формате, описанном в условии задачи. Гарантируется, что поля с такими обозначениями существуют на доске.
Формат вывода
Выведите одно число — количество дойти ладьёй с первого поля до второго на пустой доске ровно за два хода.
Пример 1
Ввод Вывод
c4 h4 6
Пример 2
Ввод Вывод
a1 a2 5
1.) программаға сәйкес операцияларды орындауға арналған компьютердің негізгі құрылғысы, қызметтік бөлігі. Көптеген жартылай өткізгішті элементтерден тұратын және компьютерде барлық есептеулер мен ақпарат өндеу жұмыстарын орындайтын электрондық микросхема. Қазіргі компьютерлерде бір немесе бірнеше процессорлар жұмыс істейді.
2.Процессор деген компьютердегі барлық қызметті атқарып тұрған адамның миы сияқты құрылғы, арифметикалық-логикалық қызметтер атқарады. процессорды CPU американдық компаниялар Intel, AMD жасап шығарады.
ОЗУ деген қысқа мерзімге мәлімет сақтауға арналған. компьютерде жасалып жатұан операциялардың бәрң осы озуда сақталады. компьютерді өшіргенде бәрі кетіп қалады.
Материнская плата деген компаның орталық астанасы. Процессор, озу, слоттар, жесткий диск бәрң соған қосып жалғанады.
Видеокарта деген графикалық ақпараттардың қалыпты жұмыс істеуіне арналған. Видео және ойындардың графикасына жауап беретін құрылғы осы.
Объяснение:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.
Тестовое решение:
-0.00136006072493969
2. А вот так учат писать это же школьные учителя:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
m:array[1..100] of real;
i,k:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 100 do begin
m[i]:=sin(i)*cos(i);
if m[i]<>0 then begin
s:=s+m[i];
k:=k+1
end
end;
Writeln(s/k)
end.
Тестовое решение:
-0.00136006072493969