В данном целом числе N, заменить нулями все цифры стоящие на нечетных позициях в числе

[TsykunovDmitriy]

В данном целом числе N, заменить нулями все цифры стоящие на нечетных позициях в числе.

[ZX Spectrum-128]

Как вариант:
Перевести число в строку;
Пробежаться по строке, заменяя символы на нечетных позициях нулем;
Перевести строку в число

[TsykunovDmitriy]

ZX Spectrum-128, Если можно напишите код пожалуйста.

[ZX Spectrum-128]

S:=inttostr(n); // если турбопаскаль, то str
For i:=1 to length(s) do
  If odd(i) then
    S[i]:='0';
N:=strtoint(s); // или val