Это из учебника по информатике
<span> X Y
</span>1.(101,101) (5, 5)
2.(1000,1000) (8, 8)
3.(1001,100) (9, 4)
4.(1011,1110) (11, 14)
5.(1100,110) (12, 6)
6.(1100,111) (12, 7)
7.(1011,111) (11, 7)
8.(1011,10) (11, 2)
9.(1001,10) (9, 2)
10.(1001,11) (9, 3)
11.(1010,11) (10, 3)
12.(1010,100) (10, 4)
13.(111,100) (7, 4)
<span>14.(111,10) (7, 2)</span><span>
</span>График во влажении. Не знаю как их плавной линией соединить, сильно они разбросаны.
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 раз
//PascalABC.NET
var
a,i:integer;
b:array [0..9] of boolean;
begin
Readln(a);
for i:=0 to 9 do b[i]:=false;
While a>0 do
begin
if b[a mod 10]=false then b[a mod 10]:=true;
a:=a div 10;
end;
for i:=0 to 9 do if not b[i] then Writeln(i);
end.
Имеется в виду каждый может сказать но не каждый может сделать