Question

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

Answer 1

program changeNum;
var
 num:string;
 ci:byte;
begin
 readln(num);
 for ci:=1 to ord(num[0]) do
  if (ord(num[ci])-48) mod 2=0 then num[ci]:='0';
 writeln;
 write(num); readln;
end.