5 8
Пошаговое объяснение:
••••••••••••••••••••
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.
Жангир хан, чьим основным увлечением была наука, а смыслом недолгой жизни опережал первого казахского ученого Шокана Уалиханова на 34 года, первого казахского педагога Ибрая Алтынсарина – на 40 лет и великого казахского мыслителя Абая Кунанбаева – на 44 года. В этой прописной истине, не раскрученной у нас по непонятной нам причине, я убедился в году, оказавшись по случайному стечению обстоятельств в Казанском университете. Директор Национальной библиотеки Татарстана, узнав, что я приехал в университетскую библиотеку имени Н.И. Лобачевского, а работаю в Музее истории казахстанской науки РГП «Ғылым ордасы», мне в тот же день посоветовал посмотреть Музей истории Казанского университета и Национальный музей Республики Татарстан. Оказалось, что в Казанском университете, созданном в 1804 году, работают 10 музеев: археологии, геологии, ботаники, зоологии, этнографии, истории педагогики, истории университета, казанской химической школы, старинных вещей и музей-лаборатория. В Музее истории Казанского университета на самом видном месте оформлена галерея портретов почетных членов Казанского университета. Рядом с портретами выдающихся деятелей науки и России я увидел портрет казахского хана Букеевской Орды Жангира. Там, далеко от Казахстана, воздано должное за его заслуги в области науки и
ф) 5/8