Даны три слова вывести ** экран самое короткое. Я отдаю вам все свои баллы может для вас...

Question

Даны три слова вывести на экран самое короткое.
Я отдаю вам все свои баллы может для вас это хоть что-то значит. Прошу помогите!

Answer 1

// PascalABC.NET 3.2, сборка 1367 от 20.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadlnString('Введите три слова через пробел:').ToWords;
  var k:=a.Select(w->w.Length).ToArray.IndexMin;
  Writeln('Самое короткое слово: ',a[k])
end.

Пример
Введите три слова через пробел: Изучаем язык Pascal
Самое короткое слово: язык

Answer 2

Var 
  a1,a2,a3: string; 
begin
  write ('Введите 1-е слово: ');
  readln (a1);
  write ('Введите 2-е слово: ');
  readln (a2);
  write ('Введите 3-е слово: ');
  readln (a3);
  if (length(a1)<>length(a2)) and (length(a1)<>length(a3))
    then
      if length(a1)        then
          if length(a1)            then writeln('Самое короткое слово: ',a1)
            else writeln('Самое короткое слово: ',a3)
        else
          if length(a2)            then writeln('Самое короткое слово: ',a2)
            else writeln('Самое короткое слово: ',a3)
    else writeln('Все слова одинаковой длины');
end.
---------------------------------------------------------------------
Введите 1-е слово: волк
Введите 2-е слово: олень
Введите 3-е слово: косуля
Самое короткое слово: волк