Задача 7 Урок 17
Primary tabs
Пользователь вводит произвольную строку, перестройте её в "ёлочку".
Например, если он ввел:
rewt34t54346t566
то в ответ программа должны вывести:
r
ew
t34
t543
46t56
6
var m, c, d : integer; s0: string; begin writeln('Введите строку'); readln(s0); //s0 := 'rew2@#$$#435tr353453t4er4'; m := 0; d := 0; for c := 1 to length(s0) do begin write(s0[c], ' '); d := d + 1; if d > m then begin writeln(); m := m + 1; d := 0; end; end; readln(); end.
КОНСОЛЬ
Введите строку srgersdfhsrje454eyhngfg s r g e r s d f h s r j e 4 5 4 e y h n g f g
- Log in to post comments
- 460 reads