// PascalABC.NET 3.0, сборка 1128 begin var k:=ReadInteger('Укажите номер записи k:'); var a:=ReadLines('T1.txt').Select(x->Length(x)). Where(x->x<>0).ToArray; var n:=a.Length; if k>n then Writeln('В файле записей меньше, чем ',k) else Writeln('Сумма равна ',a.Min+a[n-k+1]) end.
А теперь "школьный вариант" // PascalABC.NET 3.0, сборка 1128 var t:text; min,l,m,n,k:integer; s:string; begin k:=2; // вторая от конца запись Assign(t,'T1.txt'); Reset(t); min:=1000; m:=0; while not Eof(t) do begin ReadLn(t,s); Inc(m); l:=Length(s); if (l>0) and (l<min) then min:=l end; Close(t); Reset(t); k:=m-k+1; if k<1 then Writeln('В файле нет стольких строк') else begin m:=0; while m<>k do begin Readln(t,s); Inc(m) end; Writeln('Сумма равна ',min+Length(s)) end; Close(t) end.
Винер (Wiener) Норберт (26.11.1894, Колумбия, Миссури, — 19.3.1964, Стокгольм) , американский учёный. К 14 годам изучил высшую математику, в 18 лет стал доктором философии Гарвардского университета. С 1919 преподаватель, с 1932 профессор Массачусетского технологического института. Занимался математической логикой и теоретической физикой. В 1920—30-е гг. получил известность как математик работами по теории потенциала, гармоническим функциям, рядам и преобразованиям Фурье, тауберовым теоремам, общему гармоническому анализу. В 1945—47 годах у Винера возникла идея о необходимости создания единой науки, изучающей процессы хранения и переработки информации, управления и контроля. Для этой науки Винер предложил название кибернетика, получившее общее признание. Норберту Винеру принадлежит, несомненно, первое место в пропаганде значения кибернетики во всей системе человеческих знаний.
Объяснение:
чехол мех Анг мож со чех со со хи воспроизводит вашими куни куни его вод по во за