«палиндром» решение на паскале(делфи) без модуля maths - вопрос №7565288 от Sasha030506 31.01.2020 14:08

Question

Информатика: «палиндром» решение на паскале(делфи) без модуля maths только sys utils палиндром - это строка, которая читается одинаково как справа налево, так и слева направо. на входе записан набор больших латинских букв (не обязательно различных). разрешается переставлять буквы, а также удалять некоторые буквы. требуется написать программу, которая из данных букв по указанным правилам составит палиндром наибольшей длины, а если таких палиндромов несколько, то первый в алфавитном порядке. формат входных данных

Sasha030506 · Answer

Var s,p1,p2:string;a:array[ A .. Z ] of byte;n,i,j,f:integer; c,sim:char;beginreadln(n);readln(s);for c:= A to Z do a[c]:=0;for i:=1 to length(s) do a[s[i]]:=a[s[i]]+1;p1:= ; p2:= ; f:=0;for c:= A to Z do begin for j:=1 to a[c] div 2 do  begin p1:=p1+c; p2:=c+p2; end; if (a[c] mod 2=1)and(f=0)  then begin sim:=c; f:=1; end; end;if f=1 then p1:=p1+sim;p1:=p1+p2;writeln(p1);end.Пример:6QAZQAZAQZZQAPS. Программа проверялась только для коротких (String) строк. Для длинных нужно использовать AnsiString....