Определить наименьшее слово в строке считать что все слова разделены…

Задание:

Определить наименьшее слово в строке считать что все слова разделены пробелами пожалуйстапомогите

Решение:

program zadacha; vars,temp,max,min: string; i,mxp,mnp: integer; beginwriteln ('Введите строку… '); readln (s); s: =s+'; temp: ='; max: ='; min: =s; for i: =1 to length (s) dobeginif s[i]<>' thentemp: =temp+s[i]; if (s[i]=') and (temp<>') thenbeginif Length (temp) Length (max) thenbeginmax: =temp; mxp: =i-Length (temp) end; temp: ='; end; end; if max<>' thenbeginWriteln ('Самое длинное: ',max,' Оно начинается с: ',mxp); Writeln ('Самое короткое: ',min,' Оно начинается с: ',mnp) endelseWriteLn ('В данной строке нет слов! ') end.

Знаете другой ответ?

Отправить свой ответ