Докажем, что при любом натуральном и выражение А(n) = 4n + 15n - 1 кратно 9. Используем стандартную схему доказательства: 1. При n = 1 выражение A(1) = 41 + 15 · 1 - 1 = 18 кратно 9. 2. Предположим, что при n = k выражение А(k) = 4k + 15k - 1 кратно 9, т. е. 4k + 15k - 1 = 9р (где р - натуральное число). 3. При n = k + 1 надо доказать, что выражение А(k +1) = 4k+1 + 15(k + 1) - 1 делится на 9. Для доказательства можно использовать два й Поступим, как и в примере 1, т. е. выделим в выражении А(k + 1) часть А(k), которая делится на 9. Для этого преобразуем выражение А(k + 1) к виду А(k +1) = 4k+1 + 15k + 14 = 4(4k + 15k - 1) – 45k + 18 = 4 А(k) + 9(2 – 5k). Видно, что выражение А(k + 1) является суммой двух слагаемых, каждое из которых делится на 9. Сложность этого состоит в умении в выражении А(k + 1) выделить часть А(k), т. е. догадаться до преобразования 4k+1 + 15k + 14 = 4(4k + 15k - 1) – 45k + 18. Поэтому рассмотрим другой лишенный такого недостатка. 2-й Из выражения 4k + 15k - 1 = 9р (пункт 2) найдем 4k = 9р + 1 – 15k и подставим в выражение А(k +1) = 4k+1 + 15k + 14 = 4(9p + 1 – 15k) + 15k + 14 = 36p + 18 – 45k. Видно, что выражение A(k + 1) состоит из трех слагаемых, каждое из которых делится на. 9. Связь между пунктами 2 и 3 была обеспечена за счет того, что в пункте 2 была найдена величина 4k и подставлена в выражение пункта 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.