[kiddan]

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

[Vladimr]

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

Код:

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]

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