Question

ввести строку из текстового файла. Продублировать в ней все цифры. Остальные символы оставить без изменения.          PascalABC.Net

Answer 1

// PascalABC.NET 3.0, сборка 1128
begin
  var s:=ReadAllText('input.txt');
  Writeln(s);
  var so:='';
  for var i:=1 to s.Length do
    if s[i] in ['0'..'9'] then so+=s[i]+s[i]
    else so+=s[i];
  Writeln(so);
end.

Тестовое решение:
Сегодня 15 января 2016 года, московское время 19 часов 18 минут.
Сегодня 1155 января 22001166 года, московское время 1199 часов 1188 минут.