Файл: Напечатать символы с n-го по k-ый l-ой строки...

@Екатерина_99 · Регистрация: 08.10.2018

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

Помогите решить пожалуйста.
_____________________________
Дан текстовый файл. Напечатать символы с n-го по k-ый l-ой строки

@Puporev · 08.10.2018, 12:19

Pascal

var f:text;
    s,s1:string;
    n,k,l,i:integer;
begin
repeat
writeln('Введите номер строки l>0 и номера символов 0<n<k');
readln(l,n,k);
if l<1 then writeln('Введите номер строки положительное число');
if n<1 then writeln('Введите начало диапазона положительное число');
if k<=n then writeln('Введите конец интервала больше начала');
until(l>0)and(n>0)and(k>n);
assign(f,'text.txt');//файл в папке с программой
reset(f);
i:=0;
while  not eof(f)and(i<l) do
 begin
  readln(f,s);
  inc(i);
  if i=l then s1:=s;
 end;
close(f);
if i<l then writeln('В файле нет ',l,' строк')
else
 begin
  if length(s)<k then writeln('В строке ',l,' нет ',k,' символов')
  else
  for i:=n to k do write(s1[i]);
 end;
end.

@Екатерина_99 0 / 0 / 0 Регистрация: 08.10.2018 Сообщений: 6
		1
	Файл: Напечатать символы с n-го по k-ый l-ой строки... 08.10.2018, 10:17. Показов 728. Ответов 1 Метки нет (Все метки) Помогите решить пожалуйста. _____________________________ Дан текстовый файл. Напечатать символы с n-го по k-ый l-ой строки 0

	08.10.2018, 12:19