Question

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

Answer 1

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.

Answer 2

Хорошо!

Answer 3

Inc - это не процедура. Это операция в Паскале.

Answer 4

В данном случае она обозначает i:=i+2;

Answer 5

И - это то, о чем я писал в начале. Ваше решение дает из СЛОВО
ССЛЛООВВОО

Answer 6

Т.е. не то, что просил автор вопроса.

Answer 7

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.

Answer 8

Объемы текста программ сами можете сравнить)))) Следовательно, и затраченное на написание программы время.

Answer 9

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

Answer 10

Пожалуйста)

Answer 11

Вы на будущее, если школьное решение хотите, пишите, что нужно на уровне "традиционного школьного паскаля".

Answer 12

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