Задача 2.
var
s: string;
i: integer;
begin
readln(s);
for i:=1 to length(s) do
if i mod 2<>0 then s[i]:= !;
writeln(s)
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.