[lmikle]

Мой вариант:

Код:

var  
  S1, S2: string;  
  i: integer;
begin  
  Readln(S1);   
  S2 := '';

  for I := 1 to Length(S1) do  
    S2 := S2 + S1[i] + S1[i];

  Writeln(S2);
end.

Для первой задачи нужно задание.
Если все нули заменть на 9, то вариант через строку (Delphi):

Код:

var
  S : String;
begin
  ReadLn(S);
  WriteLn(StringReplace(S,'0','9',[rfReplaceAll]));
end.

Вариант с целыми числами:

Код:

var
  N, M, P, X : Integer;
begin
  ReadLn(N);
  M := 0;
  P := 1;

  While N <> 0 Do
    Begin
      X := N mod 10;
      If X = 0
        Then M := M + P * 9
        Else M := M + P * X;
      P := P * 10;
      N := N div 10;
    End;

  WriteLn(M);
end.