Файлы. Переписать в другой файл через пробел все числа ,которые поданы в начальном файле как отдельные слова.

@ChelseaSmile · Регистрация: 27.12.2012

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

Дано текстовый файл с длинами строк не больше 255 символов.Переписать в другой файл через пробел все числа ,которые поданы в начальном файле как отдельные слова.

@CodeR · 28.12.2012, 08:25

Pascal

Var f,g:text;
    s,s1:string;
    n:real;
    k:integer;
Begin
    Assign(f,'in.txt');Reset(f);
    Assign(g,'out.txt');Rewrite(g);
    While not Eof(f) do
    Begin
      readln(f,s);
      s:=s+' ';
      While Pos(' ',s)>0 do
      Begin
        s1:=Copy(s,1,Pos(' ',s)-1);
        Delete(s,1,Pos(' ',s));
        Val(s1,n,k);
        if k=0 then write(g,s1+' ');
      End;
    End;
    writeln('Резальтат записан в файл "out.txt"');
    Close(f);Close(g);
    readln;
End.

@ChelseaSmile 0 / 0 / 0 Регистрация: 27.12.2012 Сообщений: 27
		1
	Файлы. Переписать в другой файл через пробел все числа ,которые поданы в начальном файле как отдельные слова. 27.12.2012, 21:48. Показов 1665. Ответов 1 Метки нет (Все метки) Дано текстовый файл с длинами строк не больше 255 символов.Переписать в другой файл через пробел все числа ,которые поданы в начальном файле как отдельные слова. 0

	28.12.2012, 08:25

Файлы. Переписать в другой файл через пробел все числа ,которые поданы в начальном файле как отдельные слова.

Решение