Question

Нахождение
самого длинного слова в тексте.

Найти самое
длинное слово в тексте. Если таких слов несколько, то взять последнее.
Написать на Паскале

Answer 1

var
  x: array of string;
  y: string;

begin
  readln(y);
  x := y.Split(' ');
  y := x[0];
  foreach w: string in x do
    if (y.Length <= w.Length) then
      y := w;
  writeln(y);
end.