Дано предложение. 1) найти два самые минимальные по длине соседствующие слова, и вывести на экран. 2) вывести кол-во букв этих двух минимальных соседствующих слов.

250

256

Посмотреть ответы 2

Ответы на вопрос:

Vollver

Информатика

4,6(39 оценок)

Var txt: string; i,k,n,m,mn: integer; a: array of string; begin write('предложение: '); readln(txt); k: =0; mn: =length(txt); for i: =1 to length(txt) do if txt[i]=' ' then k: =k+1; k: =k+1; setlength(a,k+1); for i: =1 to k-1 do begin a[i]: =copy(txt,1,pos(' ',txt)-1); delete(txt,1,pos(' ',txt)); end; a[k]: =txt; n: =length(a[1]); for i: =2 to k do begin if n+length(a[i])< mn then begin mn: =n+length(a[i]); m: =i-1; end; n: =length(a[i]); end; writeln('количество букв: ',mn); writeln('слова: ',a[m],' ',a[m+1]); end. предложение: кот пришел домой в три часа ночи количество букв: 4 слова: в три