Найти длину самой длинной группы

@Semael · Регистрация: 14.06.2012

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

В заданной строке символов, состоящих из букв А и разделенных на группы через пробел, найти длину самой длинной группы.

@TheSN · 25.09.2012, 18:29

Pascal

var
  s: string;
  c, max: integer;
 
begin
  readln(s);
  s := s + ' ';
  while pos(' ', s) <> 0 do
  begin
    c := length(copy(s, 1, pos(' ', s) - 1));
    if c > max then max := c;
    delete(s, 1, pos(' ', s))
  end;
  writeln(max);
  readln  
end.

@Semael 2 / 2 / 0 Регистрация: 14.06.2012 Сообщений: 353
		1
	Найти длину самой длинной группы 25.09.2012, 17:46. Показов 1663. Ответов 1 Метки нет (Все метки) В заданной строке символов, состоящих из букв А и разделенных на группы через пробел, найти длину самой длинной группы. 0

	25.09.2012, 18:29

Найти длину самой длинной группы

Решение