1. Обозначим основание искомой системы счисления как x.
17=x2*1+х1*0+x0*1 =>17=x2+1 =>x2=16 =>x=±4.
Основание системы счисления не может быть отрицательным, поэтому оно равно 4-м.
Нужно трёхзначное число разбить на 3.Для этого нам нужно 3 переменных, пусть это будет a,b,c.
Будем делать на примере числа 123, то есть n:=123.
Чтобы выделить единицу пишем это a:=n div 100;
Теперь выделяем двойку b:=(n div 10) mod 10;
Тройку c:=n mod 10.
Теперь собственно сама сумма, берём ещё одну переменную, пусть будет sum. sum:=a*a +b*b+c*c;
Ну а дальше просто выводи sum,думаю знаешь как)
begin
var a := ArrRandom(30, 10, 99);
a.println;
writeln(a.Where(x -> (x mod 17 = 0)).DefaultIfEmpty.Aggregate(1, (i, j)-> i * j));
<span>end.
</span>
A:=16
b:=12-16/4 = 8
a:=16+8*3 = 40
Ответ: a=8; b=40