Задача 7 Урок 17
Primary tabs
Пользователь вводит произвольную строку, перестройте её в "ёлочку".
var n, s: string; i, j: integer; b,m:integer; begin writeln('enter an arbitrary string '); //readln(s); n:=''; s:='rewt34t54346t566bgsrgbse4ye5h'; m:=1; b:=m; for i := 1 to length(s) do begin n:= n+s[i]; write(n,' '); m-=1; if (m=0) then begin writeln(); m:=b+1; b:=m; end; n := ''; end; readln(); end.
Вывод консоли:
enter an arbitrary string r e w t 3 4 t 5 4 3 4 6 t 5 6 6 b g s r g b s e 4 y e 5 h
- Log in to post comments
- 175 reads