Достаточно открыть текстовый файл, прочитать его первую строчку в переменную строкового типа, закрыть файл и вывести требуемую часть, "вырезанную" из строки при функции Copy.
var s:string; s1,s2:integer; f:Text; begin Write('Номер первого символа: '); Read(s1); Write('Номер последнего символа: '); Read(s2); Assign(f,'input.txt'); Reset(f); Readln(f,s); Close(f); Writeln(Copy(s,s1,s2-s1+1)) end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
