Ответы
Ответ дал:
0
var
s:String;
i:Integer;
Begin
Read(s);
for i:=1 to length(s) do
begin
if (i mod 2=0) then Delete(s,i,1);
end;
Writeln(s);
end.
s:String;
i:Integer;
Begin
Read(s);
for i:=1 to length(s) do
begin
if (i mod 2=0) then Delete(s,i,1);
end;
Writeln(s);
end.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад