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

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

Question

Яна

24 сентября, 09:04

+4

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

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