Регистрация
7515575
24.08.2021 11:09
Информатика
Есть ответ 👍

Найти сумму длин самой короткой и k-й от конца файла строк.

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

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

kolafeoktistovp0aj9j
kolafeoktistovp0aj9j
4,8(68 оценок)
// pascalabc.net 3.0, сборка 1128 begin   var k: =readinteger('укажите номер записи k: ');   var a: =readlines('t1.txt').select(x-> length(           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.
бобр04
бобр04
4,5(82 оценок)
Песенка единиц единицы мы дружны, мы дружны, мы дружны, информации верны, мы верны, мы верны, и считать её должны, да должны, да должны. общее для нас важней, и ценней, и милей станем мы ещё дружней, веселей и нужней. все мы связаны друг с другом и гордимся своим кругом. неразрывны, неразлучны, вместе нам совсем не скучно. будем мы единство дружбой укреплять, информацию повсюду будем прославлять. не разлучит нас никто, нас никто, нас никто, все мы целое одно, мы одно, мы одно. единицы мы дружны, мы дружны, мы дружны, информации верны, мы верны, мы верны. полюбить вы нас должны, да должны. забывать про нас не нужно вы живите с нами дружно мы вам будем информацию считать биты, байты, килобайты перед вами здесь стоят мегабайты, гигабайты дружно все вам говорят, что они стараться будут информацию считать и ошибки в её счете ни за что не допускать ну а вы старайтесь тоже, ошибаться вам негоже дружно с нами вы живите нас получше изучите. вместе будем мы трудиться не захочется лениться никому и никогда труд нам радостен всегда.ну а сейчас наш завершается гости все по домам разъезжаются но единиц информации они уже не забудут и правильно использовать их будут.

Популярно: Информатика