Question

Дано слово. Переставить первые три и последние три буквы, сохранив порядок их следования. Задачу решить дву мя способами: а) без использования оператора цикла; б) с использование

Answer 1

Var
  s:string;
  n:integer;
begin
  Write('Вводите: '); Readln(s);
  n:=Length(s);
  s:=Copy(s,n-2,3)+Copy(s,4,n-6)+Copy(s,1,3);
  Writeln(s)
end.

**************************************************

var
  s:string;
  c:char;
  i,n:integer;
begin
  Write('Вводите: '); Readln(s);
  n:=Length(s);
  for i:=1 to 3 do begin
    c:=s[i]; s[i]:=s[n-3+i]; s[n-3+i]:=c
    end;
  Writeln(s)
end.

Результат
Вводите: Информатика
икаорматИнф

Answer 2

а) Без использования оператора цикла:

Пусть дано слово "abcdef". Мы хотим переставить первые три буквы ("abc") с последними тремя буквами ("def").

1. Выделяем первые три буквы и последние три буквы: "abc" и "def".
2. Создаем новое слово, объединяя последние три буквы и первые три буквы: "defabc".

Таким образом, результатом будет слово "defabc".

б) С использованием цикла:

pythonCopy code
def swap_letters(word):
    if len(word) < 6:  # Проверка, что длина слова не меньше 6 символов
        return "Слово слишком короткое"
    
    first_three = word[:3]  # Первые три буквы
    last_three = word[-3:]  # Последние три буквы
    
    new_word = last_three + word[3:-3] + first_three  # Новое слово
    
    return new_word

input_word = "abcdef"
result = swap_letters(input_word)
print(result)

При запуске кода с входным словом "abcdef" вывод будет: "defabc".

Обратите внимание, что второй способ использования цикла может быть полезным, если вы хотите автоматизировать этот процесс для большого количества слов.