Вопрос от посетителя
Помогите пожалуйста написать программу в паскале : символы, стоящие на четных местах заменить на *. Пользоваться можно только: Pos,Insert,Delete,Length,Copy
Отвечает Илюха:
чесно говоря без них куда легче
var s:string;
i:integer;
Begin
read(s);
for i:= 1 to length(s) do
if i mod 2 = 0 then s[i]:=’*’;
writeln(s);
End.
с ними только больше кода
var s:string;
i:integer;
Begin
read(s);
for i:= 1 to length(s) do
if i mod 2 = 0 then begin
Delete(s,i,1);
Insert(‘*’,s,i);
end;
writeln(s);
End.