Напечатайте слово-палиндром, содержащее самую длинную цепочку из цифр. в паскале

Question

Напечатайте слово-палиндром, содержащее самую длинную цепочку из цифр. в паскале

Comments

У меня такое чувство, что эта задача имеет бесконечное число решений, поскольку используя процедуру STR здесь можно много чего наворотить (в классике - слово из 255 символоов!!!!)

---

Например, напишите слово из 255 единичек!

---

A потом это слово склейте несколько миллиардов раз само из себя...

Answer 1

Я, конечно, сей же час подвергнусь неминуемой критике, но вот перед Вами самое длинное слово-палиндром, поскольку строковая величина S допускает только 255 символов...


uses Crt;
 var i:integer;
 S, C: string;
 begin
 ClrScr;

 S:='';
 for i:=1 to MaxInt do
   begin
      Str(1,C);
      S:=S+C;
   end;
 WriteLn(' S = ', S);
 ReadLn;
 end.