Var
i : Integer;
begin
for i := 10 to 99 do
if (i div 10 - i mod 10 = 1) or (i mod 10 - i div 10 = 1) then <span>Writeln(i);
</span> Readln;
<span>end.</span>
Ну так как чисел z автор нам не сказал выберем любое, например, 1111
Длина цепочки равна 1сантиметру
<span>ninja = 3 * <span>25
</span>print(ninja,' сховались на трьох дахах')
samurya = 2 * <span>40
</span>print(samurya,' сховались в двох тунелях')
print("Загальна кількість воїнів ",ninja+samurya)
</span>