пример "abcdefgh" = "bdfh"
uses crt;
var s:string;
i:byte;
begin
clrscr;
writeln('Введите строку');
readln(s);
for i:=length(s) downto 1 do
if i mod 2<>0 then
delete(s,i,1);
write(s);
readln
end.
пример "abcdefgh" = "bdfh"
uses crt;
var s:string;
i:byte;
begin
clrscr;
writeln('Введите строку');
readln(s);
for i:=length(s) downto 1 do
if i mod 2<>0 then
delete(s,i,1);
write(s);
readln
end.