МАТАН РЯДЫ РЕШИТЬ не могу понять как решать, у меня либо ответ 0 либо бесконечность (там вопросы в фото, там их 3)

ответ:

пошаговое объяснение:

"если укладывать по 11 плиток, то для квадратной площадки плиток не хватает" - это условие для ограничения количества, т.е. 121 шт.

при укладывании по 8 плиток в ряд, неполный ряд составляет количество плиток равное 7 и менее; , а при укладывании 13 плиток -  

составляет 12 и менее.

при условии, что сумма плиток составляет 19 - эти числа 7 и 12. других вариантов нет.

найдем число, которое будет делиться на 8 при остатке 7, и одновременно делиться на 13 при остатке 12.

такое число 103.

проверяем:

1) меньше 121;

2) 12 (рядов) х 8 +7 = 103;

3) 7 (рядов) х 13 + 12 = 103.

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.