НУЖНА ПРОГРАММА ** ТУРБО ПАСКАЛЕ!!! Запросить у пользователя строку S, сформировать из...

Question

НУЖНА ПРОГРАММА НА ТУРБО ПАСКАЛЕ!!! Запросить у пользователя строку S, сформировать из нее строку S1, переставив символы в строке S местами: первый с последним, второй с предпоследним и т.д. Вывести на чистый экран строки S и S1, рядом их длину.

Answer 1

Uses Crt;

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

begin
   ClrScr;
   Write('Введите строку: '); Readln(s);
   ClrScr;
   n:=Length(s);
   s1:=Copy(s,1,n);
   for i:=1 to n do s1[i]:=s[n-i+1];
   Writeln(s,' ',Length(s));
   Writeln(s1,' ',Length(s1));
   ReadKey
end.

---