<span>uses crt;
var
s, f: string;
i: integer;
begin
write('введите строку: ');
readln(s);
for i:=length(s) downto 1 do
if i mod 2=0 then
delete(s,i,1);
writeln('результирующая строка: ',s);
end.</span>
Var a: array[0..10] of integer;
i,n,sum: integer;
begin
sum:=1;
for i:=0 to 9 do
begin
writeln('Введите ',i+1,' число');
readln(n);
a[i]:=n;
if n<>0 then
begin
sum:=sum*a[i];
end;
end;
for i:=0 to 9 do
begin
if a[i]<>0 then writeln('Значения: ',a[i]);
end;
writeln('Произведение: ',sum);
end.
Сначала запишем все числа из промежутка и переведем каждое из них в восьмеричную систему исчисления (чтобы перевести из десятичной в восьмеричную, сначала делим число на восемь, потом получившееся частное и остаток записываются в том же порядке и получаем искомое число), затем убираем те числа где есть 2 или 6. Оставшиеся числа складываем и в ответе получаем 784₈ переводим снова в десятичную (744₈ = 7*8^2+4*8+4*1 = 484₁₀), и теперь уже переводим в двенадцатеричную. Делим 484 на 12, получаем (4)*12+(4) - то что в скобках и будем ответом на задачу.
Ответ: 44₁₂