Урок 17 Задача 07

Урок 17 Задача 07

Пользователь вводит произвольную строку, перестройте её в "ёлочку".
Например, если он ввел:

rewt34t54346t566

то в ответ программа должны вывести:

r
ew
t34
t543
46t56
6

Решение:

program u17z07;
var s:string;
  i,j,count:integer;
begin
  writeln('vvedite stroku:');
  readln(s);
  count:=0;
  j:=1;
  for i:=1 to length(s) do
  begin
    write(s[i]);
    count:=count+1;
    if count=j then
    begin
      j:=j+1;
      writeln;
      count:=0;
    end;
  end;
  readln();
end. 

Консоль:

vvedite stroku:
rewt34t54346t566
r
ew
t34
t543
46t56
6