Урок 17. Задача 7.
Primary tabs
Пользователь вводит произвольную строку, перестройте её в "ёлочку".
Например, если он ввел: 'rewt34t54346t566'
то в ответ программа должны вывести:r ew t34 t543 46t56 6
var s :string; i, j, h :integer; begin j := 0; h := 0; s := 'rewt34t54346t566'; for i := 1 to length(s) do begin write(s[i]); if j = h then begin writeln(); h := h + 1; j := 0; end else j := j + 1; end; end.
- Log in to post comments
- 387 reads