Строка: Разбить исходную строку в соответствии с шириной поля вывода N - Turbo Pascal
Формулировка задачи:
Дана строка и число N. Разбить исходную строку в соответствии с шириной поля вывода N.
Решение задачи: «Строка: Разбить исходную строку в соответствии с шириной поля вывода N»
textual
Листинг программы
var s:string;
n,i:byte;
begin
writeln('Введите строку');
readln(s);
repeat
write('Введите ширину поля вывода меньше длины строки');
readln(n);
until n<length(s);
for i:=1 to length(s) do
begin
write(s[i]);
if i mod n=0 then writeln;
end;
end.