Задать вопрос Регистрация
Помочь другим

  • в файле input.txt записаны строки сколько их неизвестно заменить все слова короче на в общем и записать результат в файл output.txt на языке ПАСКАЛЬ

Ответы 1

  • //input должен быть в кодировке CP866 !!!

    var i:integer;var f,g:text;var s:string;begin  assign (f, 'input.txt');  assign (g, 'output.txt');  reset(f);  rewrite(g);  while not (eof(f)) do readln(f, s);  while(pos('короче', s)>0) do begin    i:=pos('короче', s);    delete(s, i, 7);    insert('в общем',s, i);  end;  writeln(g,s);  close(f);  close(g);  readln;end.

    • Автор:

      graves
    • 5 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years