Question

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

Answer 1

Var
 f:text;
  i,n:integer;
  s,s1:string;
begin;
assign(f,'text.txt');
 reset(f);
  while not(Eof(f)) do
   read(f,s);
 close(f);
n:=0;
while n<>length(s) do
 begin;
  inc(n);
  for i:=0 to 9 do
   begin;
    str(i,s1);
     if s[n]=s1 then
      begin;
        delete(s,n,1);
        s1:=s1+s1;
        insert(s1,s,n);
        inc(n);
         end;
   end;
 end;
writeln(s);
end.

Answer 2

// 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 минут.

Answer 3

Для решения этой задачи можно использовать следующий алгоритм:

1. Открыть текстовый файл для чтения. 2. Считать строку из файла. 3. Проходя по каждому символу строки, проверить является ли символ цифрой. 4. Если символ является цифрой, то продублировать его в строке. 5. Записать полученную строку в новый текстовый файл.

Пример кода на языке PascalABC.Net:

program DuplicateDigits;

var
  inputFile, outputFile: Text;
  inputString, outputString: string;
  i: integer;

begin
  AssignFile(inputFile, 'input.txt');
  Reset(inputFile);
  AssignFile(outputFile, 'output.txt');
  Rewrite(outputFile);

Readln(inputFile, inputString);

for i := 1 to Length(inputString) do
  begin
    if (inputString[i] >= '0') and (inputString[i] <= '9') then
    begin
      outputString := outputString + inputString[i] + inputString[i];
    end
    else
    begin
      outputString := outputString + inputString[i];
    end;
  end;

Writeln(outputFile, outputString);

CloseFile(inputFile);
  CloseFile(outputFile);
end.

Данный код открывает файл "input.txt", считывает из него строку, дублирует все цифры в этой строке и записывает результат в файл "output.txt".