Question

Написать в паскаль. Вводится предложение. Определить длину самого длинного слова.

Answer 1

Var s:string;
m,tmp,i:integer;
begin
readln(s);
for i:=1 to length(s) do begin
if (s[i]<>' ') then inc(tmp)
else begin 
  if tmp>m then m:=tmp;
  tmp:=0;
  end;
end;
if tmp>m then m:=tmp;
writeln(m);
end.

Answer 2

Конечно, я могу помочь с этим. Чтобы написать программу на языке Паскаль для определения длины самого длинного слова во введенном предложении, вот пример кода:

program LongestWordLength;
uses crt;

var
  sentence, word, longestWord: string;
  i, maxLength: integer;

begin
  clrscr;
  write('Введите предложение: ');
  readln(sentence);
  
  word := '';
  longestWord := '';
  maxLength := 0;
  
  for i := 1 to length(sentence) do
  begin
    if (sentence[i] <> ' ') then
      word := word + sentence[i]
    else
    begin
      if length(word) > maxLength then
      begin
        maxLength := length(word);
        longestWord := word;
      end;
      word := '';
    end;
  end;
  
  // Check the last word in the sentence
  if length(word) > maxLength then
  begin
    maxLength := length(word);
    longestWord := word;
  end;
  
  writeln('Самое длинное слово: ', longestWord);
  writeln('Длина самого длинного слова: ', maxLength);
  
  readkey;
end.

Эта программа просит пользователя ввести предложение, затем она находит самое длинное слово в предложении и выводит его длину. Надеюсь, это поможет вам в вашем задании!