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.
1. Он американский ученый, основоположник кибернетики. А также теории об искусственном интеллекте. Славу ему принесли его работы в математике и физике. Его большая роль в том, что именно он впервые смог понять огромное значение того, что информация будет использоваться в процессах управления.
2. Основатель теории информации, которая нашла свое место в современных системах связи. В 40-х годах века ввел понятие «бит».
3. Термин, который означает «выполняющееся действие по запросу», ввел Тед Нельсон в веке, в 1963 году.
4. В 1989 году. Изобретателем считают двух человек – Тима Бернерс-Ли и Роберт Кайо.
5. Эйлер, в честь которого назвали графическую схему, был ученым. Его сферой изучения была математика, физика, астрономия, химия, ботаника, музыка, медицина и другие направления. Он автор 600 трудов.
