Program n1;
var a,sum,i: integer;
begin
sum:=0;
for i:=1 to 47 do
begin
readln(a);
if (a>0) and (a mod 3=0) then sum:=sum+a;
end;
writeln(sum);
end.
Как я понял, то:
1. Используем SUMIF(СУММЕСЛИ), указываем диапазон суммирования, и условие для суммирования.
2. Находим минимальное значение среди всех этих сумм.
1 слева к 6 справа
2 слева к 3 справа
3 слева к 1 справа
1)100111 в 8 =3 0 3 4 1 7 по таблице аски сам переведи
100111 в 16 =5 0 15
Чтобы найти число разрядов числа находишь логарифм по основанию 10 от данного числа, обрезаешь целую часть и прибавляешь единицу.
trunc(log10(a)+1)
У трёхзначных чисел это значение будет равно трём.