Мой вариант:
Код:
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.