Во введённой строке удалить все символы, стоящие на нечётных местах

@mir23 · Регистрация: 25.06.2012

Author24 — интернет-сервис помощи студентам

1.Во введённой строке удалите все символы стоящие на нечётных местах.

@Pahanuch · 25.06.2012, 18:31

Сообщение от mir23

1.Во введённой строке удалите все символы стоящие на нечётных местах.

удалите все символы, стоящие на чётных местах
В условии сменить 0 на 1

Pascal

uses crt;
var s, f: string;
i: integer;
begin
write('введите строку: ');
readln(s);
for i:=length(s) downto 1 do
if i mod 2=1 then
delete(s,i,1);
writeln('результирующая строка: ',s);
end.

@mir23 0 / 0 / 0 Регистрация: 25.06.2012 Сообщений: 9
		1
	Во введённой строке удалить все символы, стоящие на нечётных местах 25.06.2012, 18:13. Показов 5222. Ответов 1 Метки нет (Все метки) 1.Во введённой строке удалите все символы стоящие на нечётных местах. 0

	25.06.2012, 18:31

Во введённой строке удалить все символы, стоящие на нечётных местах

Решение