<span>переведем число 12 в двоичную СС и получим 1100.
1100 не удовлетворяет условию.
Троичная CC:
1*3²+1*3+0=12!
Ответ:троичная СС</span>
Составим уравнение
6Т+8П=74
3Т+4П=37 ⇒ Т=1/3×(37-4П)
Будем подбирать такие П, чтобы 37-4П было кратно трем.
П=1 ⇒ 37-4П = 33; Т=11
П=2 ⇒ 37-4П = 29 не кратно 3
П=3 ⇒ 37-4П = 25 не кратно 3
П=4 ⇒ 37-4П = 21; Т=7
Теперь понятно, что следующее П должно быть больше найденного на 3
П=7 ⇒ 37-4П = 9; Т=3
П=10 уже много, 37-4П станет отрицательным.
Получилось три пары вариантов
1 паук, 11 тараканов
4 паука, 7 тараканов
7 пауков, 3 таракана
Различные windows быстрей и лучше работает.
1)
Var i:integer;
Begin
for i := 100 to 999 do
if (i mod 15 = 11) and (i mod 11 = 9)
then writeln(i);
End.
2)
Var i,n,s:integer;
Begin
read (n);
s := 1;
for i := 1 to n do
s := s * i;
write(s);
End.
3)
Var i,j,k:integer;
Begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if i*i*i+j*j*j+k*k*k=i*100+j*10+k
then writeln(i*100+j*10+k);
End.
===== PascalABC.NET =====
begin
var n := ReadInteger('Число членов последовательности:');
var s := ReadSeqInteger('Вводите:', n)
.Where(p -> (p < 10) or (p > 50)).Sum;
Println('Сумма отобранных членов равна', s)
end.
