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

Question

Информатика

Савватей

4 июня, 22:46

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

+4

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