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

Question

Информатика

Демьян

9 января, 15:24

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

+4

Ответы (1)

Знаете ответ?

Сильвестра · Answer 1

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.