Составьте программу которая во введенном слове удалит каждую вторую букву.

Question

Информатика

Еня

21 июля, 19:50

Составьте программу которая во введенном слове удалит каждую вторую букву.

+1

Ответы (1)

Знаете ответ на вопрос?

Даря · Answer 1

Program HelloWorld; var s:string; i:integer; begin s:='qweasdz'; if (length (s) mod 2=0) then i:=length (s) else i:=length (s) - 1; while (i>0) do begin delete (s, i, 1) ; i:=i-2; end; writeln (s) ; end.