Дано слово. Переставить первые три и последние три буквы, сохранив порядок их следования....

Question

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

Comments

Хожу

---

смотрю видео уроки

---

я отличница по всем предметам

---

но программирование не даётся

---

совсем

---

Мне кажется не даётся

---

так как я каждый раз сижу по 3-4 часа над этим предметом нельзя сказать что не хочется разбираться

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.

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