Question

Решите задачу на PascalABC.net; 70 баллов!!!!
Дано целое число K и текстовый файл. Удалить из каждой строки файла первые K символов(Если длина строки меньше K, то удалить из неё все символы)
Решение на PascalABC.net

Answer 1

begin

 var k := ReadInteger('K =');

 var a := ReadAllLines('test1.txt').Select(s -> s?[k + 1:]).ToArray;

 WriteAllLines('test2.txt', a);

 Print('Работа завершена')

end.