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.
Пошаговое объяснение:
Вариант 2.
1. В параллелограмме одна из сторон равна 9 см, а периметр
параллелограмма равен 38 см. Найдите все стороны параллелограмма,
1) 38 : 2 = 19 см сумма двух сторон
2) 19 см - 9 см = 10 см вторая сторона
2.Периметр квадрата равна 36 см. Чему равна его площадь?
1) 36 см : 4 = 9 см сторона квадрата
2) 9 см * 9 см = 81 см² площадь
3.Найдите среднюю линию равнобедренного треугольника, если его
основание равно 26 см.
26 : 2 = 13 см
4.Вершины треугольника ABC лежат на окружности, угол А равен 50°, угол В равен 45°. Чему равна градусная мера дуги АВ?
1) 180 - 50 - 45 = 85° угол С
2) 2 * 85 = 170° АВ
5.В прямоугольной трапеции меньшее основание равно 3 см, большая
боковая сторона равна 4 см, а один из углов трапеции равен 150°. Найдите
площадь трапеции.
Опустим из вершины С высоту СE на AD ⇒ ∠ECD = 150° - 90° = 60°
B ΔCED: ∠EDC = 90° - 60° = 30°
" Катет, лежащий против угла в 30°, равен половине гипотенузы "
CE = CD/2 = 4/2 = 2 см
По т. Пифагора:
ED² = CD² - CE² = 4² - 2² = 16 - 4 = 12
ED = 2√3 см
BC || AD, AB || CE ⇒ ABCE - прямоугольник ⇒ AB = CE = 2 см, ВС = АЕ = 3 см, AD = AE + ED = 3 + 2√3 см
S abcd = (1/2) • ( BC + AD ) • AB = (1/2) • ( 3 + 2√3 ) • 2 = ( 3 + 2√3 ) см²
ОТВЕТ: ( 3 + 2√3 ) см²
