Найти сумму длин самой краткой и k-й от конца файла строк.
Отыскать сумму длин самой краткой и k-й от конца файла строк.
Задать свой вопрос1 ответ
Mila Zagradka
// PascalABC.NET 3.0, сборка 1128
begin
var k:=ReadInteger('Укажите номер записи k:');
var a:=ReadLines('T1.txt').Select(x-gt;Length(x)).
Where(x-gt;xlt;gt;0).ToArray;
var n:=a.Length;
if kgt;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; // 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 (lgt;0) and (llt;min) then min:=l
end;
Close(t); Reset(t);
k:=m-k+1;
if klt;1 then Writeln('В файле нет стольких строк')
else begin
m:=0;
while mlt;gt;k do begin Readln(t,s); Inc(m) end;
Writeln('Сумма равна ',min+Length(s))
end;
Close(t)
end.
begin
var k:=ReadInteger('Укажите номер записи k:');
var a:=ReadLines('T1.txt').Select(x-gt;Length(x)).
Where(x-gt;xlt;gt;0).ToArray;
var n:=a.Length;
if kgt;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; // 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 (lgt;0) and (llt;min) then min:=l
end;
Close(t); Reset(t);
k:=m-k+1;
if klt;1 then Writeln('В файле нет стольких строк')
else begin
m:=0;
while mlt;gt;k do begin Readln(t,s); Inc(m) end;
Writeln('Сумма равна ',min+Length(s))
end;
Close(t)
end.
Lidija Malitikova
Поправлю перенос строк, а то некрасиво
Виктор Пашнев
var a:=ReadLines('T1.txt').Select(x->Length(x)). Where(x->x<>0).ToArray;
Шереметинский
Пашка
а что если будет пустая строчка в середине файла?
Igorjan
и почему пустая строка не считается минимальной?
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Облако тегов