var b,i,z,k: integer;
a: array[1..10000] of integer;
begin
read(b);
z: =0;
k: =0;
while b> 0 do
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;
read(a);
c: =10; // это должно быть обязательно число, но не цифра
while a > 0 do
b: =a mod 10;
a: =a div 10;
if b=c then k: =1;
c: =b;
else (‘нет’);
составим простую таблицу
3 ученика - 3 минуты - 3 самолета
3 ученика - 1 минуту - 1 самолет
1 ученик - 1 минуту - 1/3 часть от самолета
тогда за 8 минут
1 ученик - 8 минут - 8/3 части самолетов ( или 2 самолета и 2/3 части)
сколько нужно учеников чтобы за 8 минут было 8 самолетов?
х*8/3=8
х=3
значит
3 ученика - 8 минут - 8 самолетов
проверим 1 ученик 2 самолета и 2/3
2 ученика 2+2+2/3+2/3=4+4/3=5+1/3
3 ученика 5+1/3+2+2/3=7+3/3=8 самолетов
ответ: 3 ученика
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.