Слово называется палиндромом, если оно читается одинаково, как слева направо, так и справа налево. требуется определить, какое минимальное количество букв надо добавить к входному слову справа, чтобы оно стало палиндромом. на вход программе подается строка, состоящая не более чем из 255 символов. выведите искомое число. паскаль

Var s : string; function ispali(ss : string) : boolean; begin   if length(ss)> 0 then ispali: =(ss[1]=ss[length(ss)]) and ispali(copy(ss,2,length(ss)-2))   else ispali: =true; end; function ntopali(ss : string) : integer; begin   if ispali(ss) then ntopali: =0 else ntopali: =1+ntopali(copy(ss,2,length(ss)-1)); end; begin   s: ='abcdc';   // readln(s);   writeln(ntopali(s)); end.

4: 2

2|0

1|0

0|1

 

4₁₀=100₂

 

10: 2

5|0

2|1

1|0

0|1

 

10₁₀=1010₂

 

1996: 2

998|0

499|0

249|1

124|1

62|0

31|0

15|1

7|1

3|1

1|1

0|1

 

1996₁₀=11111001100 

 

100.1010.11111001100     

program xxx;

  var i, n : integer

                    d : array[1..30] of real;

begin

  write ('введите разметность массива n=');

  readln(n);

  writeln(''введите элементы массива d: ');

  for i: =1 to n do

        readln(d[i]);

  writeln ('исходный массив d: ');

  for i: =1 to n do

      write(d[i]);

  for i: =1 to n do

      if d[i] mod 3 = 0 then d[i]: = 2 * d[i];

  writeln ('полученный массив d: ');

  for i: =1 to n do

      write(d[i]);

  readln

end.