Дано слово. Если его длина нечётная, то удалить среднюю букву, в противном случае - две буквы.

@Grigorian · Регистрация: 01.05.2010

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

Помогите пожалуйста с программным кодом: Дано слово. Если его длина нечётная, то удалить среднюю букву, в противном случае - две буквы. Зарание спасибо.

@yanyk1n · 02.05.2010, 19:33

Pascal

uses crt;
var st:string;
 
begin
 clrscr;
 write('-> ');
 readln(st);
 if length(st) mod 2 =1 then delete(st,length(st) div 2 + 1,1) else delete(st,length(st) div 2, 2);
 writeln(st);
 readln;
end.

@Grigorian · 02.05.2010, 19:36 **[ТС]**

Большое человеческое спасибо!!!!!!!!

@Grigorian 1 / 1 / 0 Регистрация: 01.05.2010 Сообщений: 62
		1
	Дано слово. Если его длина нечётная, то удалить среднюю букву, в противном случае - две буквы. 02.05.2010, 19:31. Показов 4197. Ответов 2 Метки нет (Все метки) Помогите пожалуйста с программным кодом: Дано слово. Если его длина нечётная, то удалить среднюю букву, в противном случае - две буквы. Зарание спасибо. 0

@Grigorian 1 / 1 / 0 Регистрация: 01.05.2010 Сообщений: 62
	02.05.2010, 19:36 [ТС]	3
	Большое человеческое спасибо!!!!!!!! 0

Опции темы

Дано слово. Если его длина нечётная, то удалить среднюю букву, в противном случае - две буквы.

Решение