Верно ли, что самое длинное слово в строке содержит больше 10 букв? Программа должна...

Question

Верно ли, что самое длинное слово в строке содержит
больше 10 букв? Программа должна вывести одно слово: «Верно» или «Неверно»(Pascal ABC)

Answer 1

Думаю что неверно....

Comments

здесь нужно программу написать в Паскале:)

Answer 2

Var
  c : integer;
  k : char;
begin
  c := 0;
  while not eoln do
  begin
    read (k);
    if k = ' ' then
    begin
      if c > 10 then
      begin
        write ('YES');
        halt;
      end;
      c := 0;
    end
    else
      c := c + 1;
  end;
  if c > 10 then write ('YES') else write ('NO');
end.