Стримя примерами: 1) на координатной оси отмечены точки, соответствующие указанным числам. напишите под каждой точкой соответствующие числа: а) -5; 0; -2,5; 2,5 2)отметьте на прямой точки с координатами 1; 1/2; 1/5; 1/20; 1/10; 1/40; 0; -1 3)изобразите на координатной прямой точки а(1), в(8), с(-7) d(-6,5), e(7,5).

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.

                                  Стеллерова или морская корова!The black book of extinct animals and describes another species, discovered during the expedition of Vitus Bering in 1741. His ship called the "St. Peter" was wrecked near the coast of the island, later named after its discoverer. The team was forced to stay here for the winter and to eat unusual animals called cows due to the fact that they were eating sea grass. These creatures were huge and slow. Their weight often reaches ten tons. The meat of the sea cow was very tasty and useful. Hunting on these harmless giants had not been difficult, as the animals calmly eating algae close to the coast, were not able to escape in the depth and wasn't afraid of the man. In the end, after the expedition to the Islands of profit brutal hunters who killed all the population of the sea cows for some three decades