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

Question

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

Answer 1

84

popsergey

02 апреля 2024

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: