Дано слово s1. Получите слово s2, образованное четными буквами слова s1.

1

Ответы и объяснения

Лучший Ответ!
2014-02-03T15:54:02+00:00
Var a,w:string; b:integer;
begin
readln(a);
for b:=1 to length(a) do
begin
If b mod 2 >0 then
w:=w+copy(a,b,1);
end;
writeln(w);
end.