0. так как сумма положительных чисел не может быть меньше 10 по условию
Program Ok;
var a,i,k,n:integer;
begin
k:=0;
write('Введите кол-во чисел: ');
readln( n);
for i:=1 to n do
begin
read(a);
if (a div 10 <> 0) and (a div 100 = 0) and (a mod 2 = 0) and (a mod 3 = 0) then
k:=k+1;
end;
write(k);
end.
412030 - расшифровка которую можно расшифровать единственным способом, потому как нет значений 41 и 0.
Расшифровка 4 -1 - 20 - 30 = Г-А-Т-Ь
Заметим, что 6 в 7-ичной системе счисления - максимальная цифра, поэтому 666 = 1000 - 1.
666 + 543 = 1000 + 543 - 1 = 1542