Дана строка. Удвоить каждый символ строки,выбрать из нее символы кратные 4 и напечатать...

Question

Дана строка. Удвоить каждый символ строки,выбрать из нее символы кратные 4 и напечатать её наоборот.
Поясняю, символы кратные 4-ем, это значит каждый 4-ый символ строки.

Comments

"Выбрать" - это не синоним "убрать", а скорее антоним.

---

Я если честно не понимаю как это, если можно решить по другому, то поясните

---

У Вас с условие некорректно. Должно быть или "удалить из нее символы, кратные 4 и напечатать полученную строку наоборот", или "выбрать из нее символы кратные 4 и напечатать их (т.е. именно выбранные символы) наоборот".

---

вот теперь понял, но как будет выглядеть решение для второго способа

---

А Вы оба варианта слили в один и получили некорректность. Поэтому пришлось столько разбираться.

---

Для другого варианта - другое решение.

---

Я, как Вы объяснили, решил по первому варианту.

---

ну так если не трудно, созвилите ли вы написать его

---

Нет, не соизволю. ибо это нарушение существующих тут правил. Ответ должен даваться на поставленный вопрос, не более того.

---

Если Вам другой вариант нужен - формулируйте новую задачу.

Answer 1

Var
  s,s1:string;
  i,n:integer;
begin
  Write('Введите строку: '); Readln(s);
  s1:='';
  for i:=1 to Length(s) do s1:=s1+s[i]+s[i];
  n:=Length(s1);
  i:=n-(n mod 4);
  while i>=4 do begin
    Delete(s1,i,1);
    i:=i-4
    end;
  for i:=Length(s1) downto 1 do Write(s1[i]);
  Writeln
end.

Примеры
Введите строку: Слово
оовоолСС

Введите строку: 123456789
99877655433211