Удвоить каждую букву слова, стоящую в четной позиции (Pascal)

Question

Удвоить каждую букву слова, стоящую в четной позиции (Pascal)

Comments

С начала слова, в итоге получится "СЛЛОВВО"

Answer 1

1. Современное решение

// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  ReadlnString('>').ToCharArray.Select((c,i)->i.IsOdd?2*c:1*c).Println('')
end.

Пример
> СЛОВО
СЛЛОВВО

2. "Школьное" решение

var
  s,s1:string;
  i:integer;
begin
  Write('>'); Readln(s);
  s1:='';
  for i:=1 to Length(s) do
    if i mod 2<>0 then s1:=s1+s[i]
    else s1:=s1+s[i]+s[i];
  Writeln(s1)
end.

Comments

Спасибо, но Вы представили более продвинутый уровень... У нас в школьном программировании сейчас не совсем такое.

---

Огромное спасибо за помощь! Действительно :)

---

Хорошо, благодарю еще раз)

Answer 2

Pascal

1 2 3 4 5 6 7 8 9 10 11 12 13 var   s:string;   i:integer; begin   readln(s);   i:=1;   repeat     insert(s[i],s,i);     inc(i,2)   until     i>length(s);   writeln(s) end.

Comments

А можно ли как-то без inc справиться? Не изучали конкретно эту процедуру..

---

Если подойдешь чуток скину

---

Хорошо!