Создать новый файл, в котором будут находиться все слова, длина которых будет наименьшей

@Вика-Виктория · Регистрация: 21.10.2013

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

создать текстовый файл.За один просмотр файла создать новый файл, в котором будут находиться все слова, длина которых будет наименьшей.

@bormant · 12.05.2016, 09:02

Pascal

var
  f, g: Text;
  s, p: String;
begin
  Assign(f,'input.txt'); Assign(g,'output.txt');
  Rewrite(f); Rewrite(g);
  WriteLn('Введите текст. Окончание ввода -- пустая строка');
  repeat
    ReadLn(s); if s='' then Break;
    WriteLn(f,s);
    if p='' then p:=s;
    if Length(s)<Length(p) then Rewrite(g);
    if Length(s)=Length(p) then WriteLn(g,s);
    p:=s;
  until False;
  Close(f); Close(g);
end.

@Вика-Виктория 0 / 0 / 0 Регистрация: 21.10.2013 Сообщений: 49
		1
	Создать новый файл, в котором будут находиться все слова, длина которых будет наименьшей 11.05.2016, 23:41. Показов 1075. Ответов 1 Метки нет (Все метки) создать текстовый файл.За один просмотр файла создать новый файл, в котором будут находиться все слова, длина которых будет наименьшей. 0

	12.05.2016, 09:02

Создать новый файл, в котором будут находиться все слова, длина которых будет наименьшей

Решение