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

Question

Информатика

Христоша

23 февраля, 07:34

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

+3

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