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.
Пошаговое объяснение:
а) разделил на 2 интеграла по разности, под первым e^(pi) - константа, поэтому получится e^(pi) * x = pi* e^(pi) - 0 ( при подстановке)
второй - табличный = sinx + C = 0 в подстановке.
ответ: pi* e^(pi)
б) занесу cosx под дифференциал
cosxdx = d ( sinx + 1)
дальше простой степенной интеграл = 1/3*(1+sinx)^3 + C = 1/3 * (1)^3 - 1/3 * (1)^3 = 0
в) опять под дифференциал
d(4-t^2) = -2*t dt => tdt = -1/2 * d(4-t^2)
дальше простой степенной интеграл = -1/2*2*(4-t)^(1/2) + C = -3^(1/2) + 4^(1/2) = 2 - 
г) под дифференциал:
d(1 + 4x^3) = 12x^2 dx => 6x^2dx = 1/2 d(1+4x^3)
дальше табличный интеграл = 1/2 * ln(1+4x^3) + C = 1/2*ln5 - 1/2*ln1 = 1/2*ln5
1) 30 - 27 = 3 коробки - разница
2) 51 : 3 = 17 кг - в одной коробке
3) 17 * 27 = 459 кг - привезли в один магазин
4) 17 * 30 = 510 кг - привезли в другой.