ВНутри большой окружности расположена маленькая, Радиус которой в 2,5 Раза меньше чем радиус большой окружности .Найдите отношение площади зелёной области U к Площади круга ,ограниченного большой окружностью нужно
Строение: Кишечнополостные – одни из первых многоклеточных животных. В отличие от клеток простейших их клетки специализированы на выполнении определенных функций. Они не к самостоятельному существованию. Тело образовано двумя слоями клеток: наружный (эктодерма) и внутренний (энтодерма). Между ними находится мезоглея — студенистый неклеточный слой. Клетки эктодермы: кожно-мускульные, имеют в основании мускульные волокна. За счет их сокращения происходит движение (тело укорачивается). Cтрекательные, имеют чувствительный волосок, стрекательную капсулу и стрекательную нить. При прикосновении к чувствительному волоску нить выбрасывается и вонзается в жертву (или врага). Из капсулы по нити стекает яд, который парализует ее,либо вызывает сильное жжение и отпугивает. промежуточные делиться и превращаться в клетки других типов, отвечают за регенерацию и бесполое размножение. нервные, имеют отростки возбуждаться и передавать нервный импульс. Они соединяются друг с другом и образуют диффузную нервную систему (нервная сеть). половые – сперматозоиды и яйцеклетки. Некоторые виды кишечнополостных раздельнополы, но есть и гермафродиты. Энтодерма выстилает изнутри кишечную полость и имеет два типа клеток: эпителиально-мускульные, пищеварительные в своем основании имеющие мускульное волокно, расположенное поперечно относительно оси тела, при их сокращении тело гидры становится узким. На конце клеток, обращенном в кишечную полость, расположены жгутики (подгоняют к себе частицы пищи) и ложноножки (захватывают пищу и образуют пищеварительные вакуоли). Таким образом, помимо движения эти клетки обеспечивают внутриклеточное пищеварение. эпителиально-мускульные, железистые, выделяют в пищеварительную полость ферменты, расщепляющие органические вещества. Этот процесс называется полостное пищеварение
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.