Найдите площадь фигуры заштрихованной на рисунке

Еще больший интерес вызывала у жителей Кубани музыка, что было вполне естественно при сохранении глубоких певческих традиций у населения края. В каждой станичной школе пение было обязательным предметом, и почти в каждой православной церкви имелся свой церковный хор. Тридцать шесть воинских частей Кубанского казачьего войска имели оркест-I ры. С 1889 по 1895 г. в Екатеринодаре работал общественный кружок любителей музыки, но он не мог охватить всех желающих приобщиться к музыкальному искусству. Между тем многие родители стремились учить детей играть на музыкальных инструментах, но не хватало опытных учителей. Восполнить этот пробел, взялся известный общественный деятель.Кубани, любитель-музыкант, собиратель казачьих песен Аким Дмитриевич Биг-рай (1855-1909), В 1896 г. он организо-нал и возглавил кружок любителей музыки и драматического искусства. В 1899 г. направил обстоятельное письмо и главную дирекцию Императорского Русского музыкального общества в Петербурге с открыть в Екатеринодаре отделение этого Общества. В 1900 г. Екатеринодарское отделение ИРМО было открыто и начались занятия в музыкальных классах. Большую роль в пропаганде музыкального искусства играл уроженец станицы Старонижестеблиевской Григорий Митрофанович Концевич (1863-1937) — хормейстер, композитор и педагог. Он был хорошо знаком с такими выдающимися композиторами, как М. А. Балакирев (руководитель «Могучей кучки»), Н. А. Римский-Корсаков, А. К. Лядов и другие. С 1892 г. он возглавлял войсковой певческий хор Кубани, который по праву считался одним из лучших хоров в России.Для преподавателей начальных училищ он издал два учебных пособия по пению, подготовил семь сборников народных песен, бытовавших среди казаков.Развивалась музыкальная культура в горских аулах. Правда, некоторые национальные музыкальные инструменты начали исчезать из употребления. На смену им пришли русские фабричные музыкальные инструменты. Основными жанрами оставались танцевальная музыка и народные мелодии.

var b,i,z,k: integer;

a: array[1..10000] of integer;

begin

read(b);

z: =0;

k: =0;

while b> 0 do

begin

z: =z+1;

a[z]: = b mod 10;

b: =b div 10;

end;

for i: =2 to z-1 do

if a[i]=a[i-1] or a[i]=a[i+1] then

k: =1;

if k=1 then writeln (‘да’)

else writeln (‘нет’);

end.

второй способ:

var a,b,c: integer;

begin

read(a);

k: =0;

c: =10; // это должно быть обязательно число, но не цифра

while a > 0 do

begin

b: =a mod 10;

a: =a div 10;

if b=c then k: =1;

c: =b;

end;

if k=1 then writeln (‘да’)

else (‘нет’);

end.