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

Question

Информатика

Ждан

17 марта, 03:20

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

+3

Ответы (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.