В слове произвольной длины удалить первую и последнюю буквы

@Kris_Riro · Регистрация: 01.03.2015

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

В слове произвольной длины удалить первую и последнюю буквы.

@APALoff · 02.03.2015, 10:02

Pascal

1
2
3

Readln(s);
s:=Copy(s,2,Length(s)-2);
Writeln(s);

@swillrocker · 02.03.2015, 19:13

Pascal

var str,s:string;
    i:integer;
begin
  writeln('Enter string:');
  readln(str);
  for i:=2 to length(str)-1 do s:=s+str[i];
  str:=s;
  writeln(str);
readln;
end.

@Kris_Riro 0 / 0 / 0 Регистрация: 01.03.2015 Сообщений: 8
		1
	В слове произвольной длины удалить первую и последнюю буквы 01.03.2015, 16:06. Показов 1380. Ответов 2 Метки нет (Все метки) В слове произвольной длины удалить первую и последнюю буквы. 0

	02.03.2015, 19:13

В слове произвольной длины удалить первую и последнюю буквы

Решение