Var
a, b, c, d: byte;
begin
for a := 1 to 5 do
begin
for b := 1 to 5 do
begin
c := (c = 10 ? 1 : c + 1);
write((a mod 10 = 1 ? c : 16 - c):3);
end;
writeln();
end;
end.
8, 16, 24, 32, 40, 48, 56, 64, 72, 80, 88, 96, 104, 112, 120, 128, 136, 144, 152, 160, 168, 176, 184 - секунды, когда башня разваливается
нам нужен период с 121 по 180 секунды. По списку получается 7 раз