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.

Answer 2

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

Answer 3

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

Answer 4

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.

Answer 5

спасибо))

Answer 6

Пожалуйста