Var A: array[1..15] of integer;
.........................................
9 бит, т.к. 64 это 2 в 6 степени и 6 приблизительно 2 в 3, 6+3=9 бит
Uses crt;
var a,b,c: integer;
begin
for a:=1 to 9 do
for b:=1 to 9 do
for c:=0 to 9 do
if a+10*a+b+100*a+10*b+c=100*b+10*c+b
then writeln(a,' ',b,' ', c);
<span>end.</span>
1)?
2)клавиатура (скорей всего)
3)процессор
4)?
5)жёсткий диск или винчестер
6)мышь
7)диск
8)винчестер
9)принтер