Я не понимаю о какой "Архитектуре" ты говоришь, но в Информатеке шиной называбт тип соединения, при котором одной "шиной" соединяются несколько компьютеров и устройств. Например: ПК1 - ПК2 -ПК3 - Принтер - ПК4 - Сканер
{1. Заполните массив L [9] с клавиатуры числами 105, 126, 134, 176, 181, 193, 132, 144, 156 и ввести на экран }
var L:array [1..9] of byte;
n,i:byte;
begin
N:=9;
{считываем с клавиатруры N чисел}
writeln('введите масссив');
for i:=1 to n do read(L[i]);
writeln;
writeln('Массив:');
{вывод на экран массива}
for i:=1 to n do write(L[i]:7);{7 позиций под число}
end.
{2 . заполнить массив К [22] случайными числами в интервале от 2 до 42 и вывести его на экран.}
var K:array [1..22] of byte;
n,i:byte;
begin
N:=22;
randomize;
for i:=1 to n do k[i]:=2+random(41);{если включая [2,42]}
writeln;
writeln('Массив:');
{вывод на экран массива}
for i:=1 to n do write(K[i]:7);{7 позиций под число}
end.
1) a=29-1=19
2) 1101011(2) =1*2^6+1*2^5+0*2^4+1*2^3+0*2^2+1*2^1+1*2^0=64+32+8+2+1=107(10)
3) 12112
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>
IVAN.DOC
КУКУ.BMP
A.B.TXT
LIN?.EXE нельзя ибо ? недопустимый символ.
TREE*.BMP опять же недопустимый символ
Поле чудес.EXE хз почему, но вроде как нельзя EXE русскими буквами называть при компиляции.
