Дано слово. Если оно нечетной длины, то удалить его среднюю букву

@альберт12 · Регистрация: 06.06.2012

Дано слово. Если оно нечетной длины, то удалить его среднюю букву.

@Small Lamer · 27.06.2012, 21:31

Pascal

var
    s :string;
begin
 
    readln(s);
    if (length(s) mod 2 = 1) then delete(s , length(s) div 2 + 1 , 1);
    writeln(s);
end.

@альберт12 3 / 3 / 0 Регистрация: 06.06.2012 Сообщений: 79
		1
	Дано слово. Если оно нечетной длины, то удалить его среднюю букву 27.06.2012, 18:05. Показов 2351. Ответов 1 Метки нет (Все метки) Дано слово. Если оно нечетной длины, то удалить его среднюю букву. 0

Опции темы

Решение