Я же уже отвечал тебе:D
смотри фото
Var s,p1,p2:string;
a:array['A'..'Z'] of byte;
n,i,j,f:integer; c,sim:char;
begin
readln(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.
Пример:
6
QAZQAZ
<span>AQZZQA
PS. Программа проверялась только для коротких (String) строк. Для длинных нужно использовать </span><span>AnsiString.</span>
Маркиза везде сокращаем и по формуле 320+575-55=840
Ответ: a,b,s: integer;
begin
write('Ââåäèòå Г·ГЁГ±Г«Г* a, b: ');
readln(a,b);
if a>0 then s:=a+b
else s:=a*b;
writeln('s=',s);
readln;
end.
Объяснение:
VB.
Dim i As String
i = InputBox("Введите число")
<span>If i = StrReverse(i) Then MsgBox("Ура! Число " & i & " является палиндромом.")
</span><span>' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
</span><span>
Pascal.
</span>var<span> n, m, p: word
begin
write('Введите число:');
readln(n);
m := n;
p := 0;
while m > 0 do begin
p := p * 10 + m mod 10;
m := m div 10;
end;
if n = p then
writeln(</span>"Ура! Число является палиндромом."<span>)
readln;
end.
</span>
Помог? Жми <u>Лучший</u><span>
</span>