Пожалуйста добрые люди помогите 80б!!!Решить данную задачу ** Паскале Напишите...

Question

Пожалуйста добрые люди помогите 80б!!!Решить данную задачу на Паскале
Напишите программу, чтобы создавала палиндром любой строки. Палиндром - исходная строка + обратное представление строки (на входе – abc; на выходе abccba)

Answer 1

1. Современное решение

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  s:=s+s.Inverse;
  s.Println
end.

Пример
abc
abccba

2. Так все еще учат в большинстве (но уже не во всех!) школ

program Palindrom;

var
  s:string;
  i,n:integer;

begin
  Readln(s);
  for i:=Length(s) downto 1 do s:=s+s[i];
  Writeln(s)
end.

Comments

что означает downto ?

---

Стандартный паскалевский цикл с уменьшением счетчика на каждом шаге на 1

---

Ваша 2. нижняя программа точно правильная к данной задачи?

---

есть for 1 to n и есть обратный for n downto 1

---

Запустите - убедитесь

---

А есть какой то другой способ?

---

мы c downto еще не работаем

---

program Palindrom;

var
s,s1:string;
i,n:integer;

begin
Readln(s);
s1:='';
for i:=1 to Length(s) do s1:=s[i]+s1;
s:=s+s1;
Writeln(s)
end.

---

спасибо))

---

Пожалуйста