Правое верхнее - 8
правое нижнее - 19
слева обе картинки одинаковые, но не видно значения Dat[10]
если оно меньше или равно 12 то ответ для этих заданий 6, если строго больше 12 то ответ 7
var i, multi:integer;
s:string;
begin
readln(s);
multi:=1;
for i:=1 to length(s) do begin
if StrToInt(s[i]) mod 3 = 0 then
multi:=multi*StrToInt(s[i]);
end;
if multi = 1 then
writeln('Нет')
else
writeln(multi);
end.
Б В А Г
По поводу операций В и А нельзя однозначно сказать какое из них сильнее пофильтрует
S=0
i=1
<======================================
Если A(i, i) не равно 100 то S=S+A(i, i) ||
i=i+1 ||
если i < 6 то перейти на ===================
иначе печатать S (сумма)
вот и алгоритм