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.
ответ:
расстояние от нижних ступенек лестницы до стены, это длина катета прямоугольного треугольника, прилежащего к углу 60°. а длина лестницы- гипотенуза этого треугольника. длина прилежащего катета равна гипотенузе, помноженной на косинус этого угла. cos 60°=½, следовательно длина лестницы равна 2•4.6=9.2 метра
пошаговое объяснение:
получается прямоугольный треугольник: угол между стеной и полом составляют конечно 90 градусов. второй угол треугольника 60 градусов. значит третий угол будет 30 градусов, так как сумма углов треугольника 180 градусов.
а катет, лежащий против угла в 30 градусов в прямоугольном треугольнике равен половине гипотенузы. а это как раз и есть длина лестницы. она в два раза больше, чем катет 4,6 м, то есть равна 9,2 м.
длинна забора 116 м.
Пошаговое объяснение:
1 coткa = 100 м². 4 соток= 400 м². Так как длина участка 50 м, найдем ширину участка.