Составить программу, где каждый последующий символ печается на 1 больше количества предыдущего

@Mark_Oz · Регистрация: 26.01.2015

Задание: Составить программу, где каждый последующий символ печатается на 1 больше
количества предыдущего.
Вводим символы: ABCD
Результат: ABBCCCDDDD

Решение с ошибкой, помогите исправить

Pascal

program _4;
var 
    s,k:string;
    i:integer;
begin
    readln(s);
    k:=' ';
    for i:=1 to length(s) do
    k:=k+copy(s,i,1)+copy(s,i,1);
    writeln(k);
end.

@ildwine · 26.01.2015, 13:25

Pascal

program _4;
var 
    s1, s2 : string;
    i, j, k : integer;
begin
    readln(s1);
    j := 1; {кол-во повторений}
    s2 := ''; {изначально строка-результат пустая}
    for i:=1 to length(s1) do
    begin
      for k := 1 to j do {приклеиваем букву j раз}
        s2 := s2 + copy(s1,i,1);
      inc(j) {наращиваем кол-во повторений}
    end;     
    writeln(s2);
end.

Опции темы