Санды теңсіздіктер және олардың қасиеттері. 2-сабақ 1. Теңсіздіктерді мүшелеп қос. а) 5 > 4 және -15 -10 V b) 5-6 жəне -8 <-25 Л 2. Теңсіздіктерді мүшелеп көбейт. 1 1 а) 8 > 6 және 2 3 Л b) 5 < 6 және 1<1,5
Расположена в географическом центре России, в юго-восточной части Западной Сибири, на Западно-Сибирской равнине. Граничит на юго-западе с Казахстаном, на западе — с Омской, на севере — с Томской, на востоке — с Кемеровской областями, на юге — с Алтайским краем. Находится на юго-востоке Западно-Сибирской равнины. Занимает главным образом южную часть Васюганской равнины и Барабинскую низменность. На востоке — отроги Салаирского кряжа (высота до 498 м). В центральной и южной частях — гривистый рельеф. Гривы высотой 6-10 м вытянуты с северо-востока на юго-запад. Межгривные понижения заняты болотами и озерами. Месторождения нефти, природного газа, каменного угля, золота, керамических глин, торфа.Климат Климат резко континентальный. Средние температуры января от -16 °С до -20 °С, июля от +18 °С до +20 °С. Вегетационный период от 144-148 дней на севере до 158-163 на юге. Растительность отличается разнообразием и выраженной зональностью распределения. Леса занимают 26 % общей площади. Среди наиболее распространенных пород: пихта, ель, сосна, кедр с примесью березы, осины и изредка лиственницы. На Барабинской низменности преобладают березово-осинные колки. На территории области произрастает около 400 видов растений, используемых в народной и официальной медицине и в пищевой промышленности. На севере в лесных районах обитают медведь, северный олень, лось, рысь, косуля, росомаха, выдра, речной бобр.
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.