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

@Igoradm · Регистрация: 24.02.2019

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

Запросить у пользователя слово, состоящее из не менее букв. Поменять местами первую и третью букву и вывести результат на экран

@Puporev · 01.02.2020, 18:43

Думаю что должно быть из не менее 3 букв.

Pascal

var s:string;
    c:char;
begin
repeat
writeln('Введите слово из не менее чем 3 букв');
readln(s);
until length(s)>=3;
c:=s[1];
s[1]:=s[3];
s[3]:=c;
writeln('Обмен 1 и 3 букв');
write(s);
end.

@Igoradm 0 / 0 / 0 Регистрация: 24.02.2019 Сообщений: 22
		1
	Поменять местами первую и третью букву в слове и вывести результат на экран 01.02.2020, 17:26. Показов 594. Ответов 1 Метки pascal, символы (Все метки) Запросить у пользователя слово, состоящее из не менее букв. Поменять местами первую и третью букву и вывести результат на экран 0

	01.02.2020, 18:43