[kiddan]

Добрый день, вопрос может и глупый но решить не могу! Есть переменная S string, имеет в себе n- количество символов, нужно разбить её на строки по 5 символов и записать в файл. Пример s:= '1234567890098765432101'; на выходе:
12345
67890
09876
54321
01

[Vladimr]

Примерная реализация

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var t:TextFile;// твой текстовый файл s:string; //твоя строка begin AssignFile(t,'твой файл.txt'); //связь с текстовым файлов rewrite(t); //открыть для перезаписи   While length(s)>5 do begin writeln(t,copy(s,1,5)); //записываем первые 5 символов delete(s,1,5); //удаляем их end;   writeln(t,s); //записываем символы closefile(t); //закрываем файл end;

Админ: Пользуемся тегами при оформлении кода!

[kiddan]

Спасибо!!! Помогли!!!!