110-89=21
21+89=110 вот вроде правильно
<h3>PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (s, ss, k) := (ReadInteger('s='), 0, 3);
while ss <= s do
begin
ss += k;
k+=2
end;
ss.Println
end.
В семеричной системе счисления используются цифры 0..6
Количество искомых цветов проще всего вычислить простым перебором:
1) 100 - 1
2) 200, 201, 210 - 3
3) 300, 301, 302, 310, 311, 320 - 6
4) 400, 401, 402, 403, 410, 411, 412, 420, 421, 430 - 10
5) 500, 501, 502, 503, 504, 510, 511, 512, 513, 520, 521, 522, 530, 531, 540 - 15
6) 600, 601, 602, 603, 604, 605, 610, 611, 612, 613, 614, 620, 621, 622, 623, 630, 631, 632, 640, 641, 650 - 21
Итого: 1+3+6+10+15+21 = 56
Носи́тель информации — любой материальный объектили среда, используемыйчеловеком, способный достаточно длительное время сохранять (нести) в своей структуре занесённую на негоинформацию, без использования дополнительных устройств
До собаки адресат, после собаки адрес почтового сервера