Следующие вопросы: 1) Что такое WWW?
2) Кто разработчик первого компьютера?
3) Когда отмечают Всемирный день информации?
4) Кто такой К.Э.Циалковский? Годы его жизни. Место работы.
5) Дата первых Олимпийских игр.
6) Микенская культура
7) Когда была Троянская война?
8) Укажите время утверждения григорианского календаря.
9) Каков диаметр атома?
10) Укажите смертельный уровень звука.
11) Какова температура кипения железа?
12) Какова температура плавления ртути?
13) Укажите скорость обращения Луны вокруг Земли?
14) Какова масса Земли?
15) Какая гора в России является самой высокой?
16) Укажите годы правления Ивана I.
17) Укажите годы правления Екатерины I.
18) Укажите годы правления Ивана IV.
19) Укажите годы правления Хрущева Н.С.
20) В каком году был изобретен первый деревянный велосипед?
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
AQZZQA
PS. Программа проверялась только для коротких (String) строк. Для длинных нужно использовать AnsiString.