Паскаль. Помогите пожалуйста. 1)В программе нужно удалить все символы которые стоят **...

Question

Паскаль.
Помогите пожалуйста.
1)В программе нужно удалить все символы которые стоят на четных местах.

Answer 1

uses crt;
var
s, f: string;
i: integer;

begin
write('введите строку: ');
readln(s);
for i:=length(s) downto 1 do
if i mod 2=0 then
delete(s,i,1);
writeln('результирующая строка: ',s);
end.