Помогите ! 1) Дана строка. Заменить все его символы, стоящие ** нечетных местах, ** букву...

Question

Помогите !
1) Дана строка. Заменить все его символы, стоящие на нечетных местах, на букву "а"
2)Даны три слова вывести на экран самое короткое

Answer 1

1)
var s: string; i: byte;
begin
writeln('Введите строку:');
readln(s);
i:=1;
while i<=length(s) do begin<br>  delete(s,i,1);
  insert('a',s,i);
  i:=i+2;
end;
writeln(s);
end.
---------------------------------------------
Введите строку:
Меняем нечетные символы на а
aеaяaмaнaчaтaыa aиaвaлa aаaа
---------------------------------------------

2) это задание решено в другом Вашем вопросе znanija.com/task/22037051