Задача с использованием структуры «файл»

@shamaaaaan · Регистрация: 11.11.2015

Author24 — интернет-сервис помощи студентам

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

@JuriiMW · 21.12.2015, 09:25

Pascal

begin
  var Name := ReadLnString('Имя текстового файла:');
  var k := ReadLnInteger('Номер строки k=');
  var kl := 0;
  var n := 0;
  var l := 0;
  foreach var S : String in ReadLines(Name) do
    begin
      n += 1;
      if n = k then kl := S.Length;
      if l < S.Length then l := S.Length;
    end;
  WriteLn(kl + l);
end.

@shamaaaaan 0 / 0 / 1 Регистрация: 11.11.2015 Сообщений: 9
		1
	Задача с использованием структуры «файл» 20.12.2015, 21:21. Показов 861. Ответов 1 Метки нет (Все метки) Найти сумму длин самой длинной и k-й строк PascalABC 0

	21.12.2015, 09:25

Задача с использованием структуры «файл»

Решение