Сформировать текстовый файл, состоящий из 5 строк. В строке 5 слов, разделенных пробелом

@Teos · Регистрация: 08.12.2014

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

Сформировать с помощью редактора текстовый файл, состоящий из 5 строк. В строке 5 слов, разделенных пробелом. Определить в каждой строке слово максимальной длины

@Arigato · 30.06.2015, 13:04

Pascal

var
  f: text;
  i,j,p: integer;
  s,w,maxw: string;
begin
  assign(f,'input.txt');
  reset(f);
  for i:=1 to 5 do begin
    readln(f,s);
    if s[length(s)]<>' ' then s:=s+' ';
    maxw:='';
    for j:=1 to 5 do begin
      p:=pos(' ',s);
      w:=copy(s,1,p-1);
      delete(s,1,p);
      if length(w)>length(maxw) then maxw:=w;
    end;
    writeln(maxw);
  end;
  close(f);
end.

Можно было бы и более универсально (любое кол-во строк и слов в строке), но раз сказано, что четко по 5, значит по 5.

@Teos 0 / 0 / 0 Регистрация: 08.12.2014 Сообщений: 25
		1
	Сформировать текстовый файл, состоящий из 5 строк. В строке 5 слов, разделенных пробелом 29.06.2015, 14:43. Показов 1510. Ответов 1 Метки нет (Все метки) Сформировать с помощью редактора текстовый файл, состоящий из 5 строк. В строке 5 слов, разделенных пробелом. Определить в каждой строке слово максимальной длины 0

	30.06.2015, 13:04

Сформировать текстовый файл, состоящий из 5 строк. В строке 5 слов, разделенных пробелом

Решение