Паскаль. вычеркиватели.

Вычеркните из слова Х буквы, стоящие на чётных местах.

Question

Генуша

22 декабря, 21:13

+5

Ответы (1)

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

Федяня · Answer 1

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.

Паскаль. вычеркиватели.Вычеркните из слова Х буквы, стоящие на чётных местах.