Строку из n символов распечатать по m символов. Если в последней строке нет m символов, то ее не печатать

@Worm67 · Регистрация: 18.12.2015

Строку из n символов распечатать по m символов в строке. Если в последней строке нет m символов, то ее не печатать.

@WhiteMind · 19.04.2016, 07:09

Pascal

var
  s: string;
  i,n,m: integer;
begin
  writeln('Input n,m:');
  readln(n,m);
  repeat
    writeln('Input s(length(s) = ',n,')');
    readln(s);
  until length(s) = n;
  
  n := (n div m) * m;
  i:=1;
  while i < n do begin
    writeln(copy(s , i , m));
    i := i + m;  
  end;
end.

@Worm67 1 / 1 / 1 Регистрация: 18.12.2015 Сообщений: 54
		1
	Строку из n символов распечатать по m символов. Если в последней строке нет m символов, то ее не печатать 18.04.2016, 23:48. Просмотров 986. Ответов 1 Метки нет (Все метки) Строку из n символов распечатать по m символов в строке. Если в последней строке нет m символов, то ее не печатать. 0

Опции темы

Строку из n символов распечатать по m символов. Если в последней строке нет m символов, то ее не печатать

Решение