Поменять местами первую и последнюю буквы слова

@Innaa · Регистрация: 02.07.2013

Пользователь вводит слово. Программа меняет местами первую и последнюю буквы слова.

Kodzaev · 05.07.2013, 12:13

Pascal

Var
  s: String;
  c: Char;
BEGIN
Write('Введите слово: ');
Readln(s);
c:=s[1];
s[1]:=s[Length(s)];
s[Length(s)]:=c;
Writeln(s);
Readln
END.

@Innaa 0 / 0 / 0 Регистрация: 02.07.2013 Сообщений: 24
		1
	Поменять местами первую и последнюю буквы слова 05.07.2013, 11:42. Показов 6590. Ответов 1 Метки нет (Все метки) Пользователь вводит слово. Программа меняет местами первую и последнюю буквы слова. 0

	05.07.2013, 12:13

Решение