Готовые дипломные, курсовые, рефераты. Вы можете бес-платно скачать любую понравившуюся работу.
ГОТОВЫЕ РАБОТЫ
ПОХОЖИЕ ВОПРОСЫ
Сегодня примерно в 20:48 на наш email ящик поступил вопрос, который наши модераторы от-несли к категории Разное. Постараемся дать на него полноценный ответ.
Дана строка S, состоящая из слов, разделённых пробелами. Найдите в строке S слово максимальной длины.
Программа на паскаль плизз...
Среди нашей команды есть эксперты, которые успешно отвечают на вопросы из рубрики "Информатика". Напомним, что вы задали следующий вопрос:
Дана строка S, состоящая из слов, разделённых пробелами. Найдите в строке S слово максимальной длины.
Программа на паскаль плизз...
И сразу же ответим на него:
После проведенного совещания с другими специалистами нашего сервиса, мы склонны пола-гать, что правильный ответ на заданный вами вопрос будет звучать следующим образом:
Var s:string;
i,m,n:integer;
begin
readln(s);
n:=-1;
for i:=1 to length(s) do begin
n+=1;
if (s[i]=' ') or (i=length(s)) then begin
if n>m then m:=n;
n:=0;
end;
end;
writeln(m);
end.