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

@K.R.E. · Регистрация: 17.06.2012

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

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

@UserABC · 17.06.2012, 21:59

Код

Pascal

uses crt;
var s, f: string;
i: integer;
begin
write('ââåäèòå ñòðîêó: ');
readln(s);
for i:=length(s) downto 1 do
if i mod 2=0 then
delete(s,i,1);
writeln('ðåçóëüòèðóþùàÿ ñòðîêà: ',s);
end.

@КонецСвета · 18.06.2012, 01:16

UserABC, а если ввести "мама"?

@UserABC · 20.06.2012, 16:56

Что-то не так?

@КонецСвета · 20.06.2012, 19:52

UserABC, мм стоит на нечетных местах

@UserABC · 20.06.2012, 23:48

ахаха да да

@K.R.E. 0 / 0 / 0 Регистрация: 17.06.2012 Сообщений: 3
		1
	удалите все символы, стоящие на чётных местах 17.06.2012, 21:37. Показов 1672. Ответов 5 Метки нет (Все метки) Во введенной строке удалите все символы, стоящие на чётных местах. 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	18.06.2012, 01:16	3
	UserABC, а если ввести "мама"? 0

@UserABC Pascal + 137 / 136 / 127 Регистрация: 16.03.2011 Сообщений: 461
	20.06.2012, 16:56	4
	Что-то не так? Изображения 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	20.06.2012, 19:52	5
	UserABC, мм стоит на нечетных местах 0

@UserABC Pascal + 137 / 136 / 127 Регистрация: 16.03.2011 Сообщений: 461
	20.06.2012, 23:48	6
	ахаха да да 0

Опции темы