Дан текстовый файл f. Создать файл g, содержащий текст файла f, в котором дважды напечатана каждая цифра

@АлександрЯма · Регистрация: 17.12.2012

Author24 — интернет-сервис помощи студентам

помогите пожалуйста парни

@CodeR · 27.12.2012, 09:18

Pascal

Var f,g:text;
    s:string;
    i:byte;
Begin
    Assign(f,'in.txt');Reset(f);
    Assign(g,'out.txt');Rewrite(g);
    While not Eof(f) do
    Begin
      readln(f,s);
      For i:=Length(s) downto 1 do
       if s[i] in ['0'..'9'] then Insert(s[i],s,i);
      writeln(g,s);
    End;
    writeln('Результат в файле "out.txt"');
    Close(f);Close(g);
    readln;
End.

@АлександрЯма 1 / 1 / 0 Регистрация: 17.12.2012 Сообщений: 11
		1
	Дан текстовый файл f. Создать файл g, содержащий текст файла f, в котором дважды напечатана каждая цифра 26.12.2012, 22:23. Показов 1554. Ответов 1 Метки нет (Все метки) помогите пожалуйста парни 0

	27.12.2012, 09:18

Дан текстовый файл f. Создать файл g, содержащий текст файла f, в котором дважды напечатана каждая цифра

Решение