Доказать, что а)число 2^333+3^222 делится на 17; б) число 2^222+3^333 делится на 31. . нужно

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.

(Х) км/ч-время на первой части пути; (Х+15) км/ч - время на второй части пути; (24/х) ч-скорость на первой части пути; (36/(x+15)) ч - скорость на второй части пути; 4 км/ч - разница между первой и второй скоростью Составляем и решаем уравнение: 36/(x+15)-24/x=4 Находим общий знаменатель, подписываем дополнительные множители, приводим к квадратному. (-4x^2-24x+384=0) Находим корни уравнения: x1=6; x2=-16 (не удовлетворяет условию) х-время на первой части пути, значит, время на первой части пути = 6 ч. Находим скорость: 24/6=4 ответ: 4 км/ч