Строка: Разбить исходную строку в соответствии с шириной поля вывода N - Turbo Pascal

Формулировка задачи:

Дана строка и число N. Разбить исходную строку в соответствии с шириной поля вывода N.

Код к задаче: «Строка: Разбить исходную строку в соответствии с шириной поля вывода N - Turbo Pascal»

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


СОХРАНИТЬ ССЫЛКУ