Строка: Разбить исходную строку в соответствии с шириной поля вывода 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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.538 из 5
Похожие ответы