Это кит, да?) ответ Б, кстати там 25 особенно хорош) 3 часа потратил)
const b:array[1..5] of integer = (3, 13, 8, 62, 104);
Вроде всё верно.
Чёрный - 1, серебристый - 2, коричневый - 3, белый - 4.
1 - 1-2-3-4
2 - 1-2-3-4
3 - 1-2-3-4
4 - 1-2-3-4
Ответ: г) - 16.
//PascalABC.NET
begin
ReadSeqIntegerWhile(x -> x <> 0).Where(x -> (x mod 10 = 6) and (x mod 6 = 0)).Sum.Print;
end.
Число заносите в ячейку А1 в ячейку В1 пишете формулу =A1*((A1>=850)*0,10+(A1>=6000)*0,05)
во вложении экселевский файлик с решением