Дано слово s1. Получите слово s2, образованное четными буквами слова s1.
Дано слово s1. Получите слово s2, образованное четными буквами слова s1.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы