Если ктонибуть сделал СОР

1) Ломаная — это геометрическая фигура, состоящая из отрезков, последовательно соединённых своими концами.

Длина первого звена равна 50 мм, то есть 5 сантиметров. (1 см = 10 мм). Длина второго звена равна 20 мм, то есть 2 см. Длина третьего равна сумме длины первого и второго звеньев, то есть, 50 мм + 20 мм = 70 мм. 70 мм = 7 см.

2) В числовом выражении нужно подставить вместо z числа, которые даны ниже. То есть:

z+19 где z=26.

26+19=45.

z+19 где z=58.

58+19=77.

3) Квадрат — это четырёхугольник, у которого все стороны равны.

Периметр — это сумма длин всех сторон. Периметр в математике обозначается латинской буквой P.

В условии нам дано, что одна сторона квадрата равна 4. Раз у квадрата все стороны равны, то значит и у остальных трёх сторон длина будет равна 4.

Чтобы вычислить периметр, нужно сложить все стороны.

P = 4+4+4+4 или же 4*4 = 16.

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.