Program gt;
var b,c:array[1..1000]of integer;
k,n,i,j,r,w:integer;
begin
read(n);
k:=0;
w:=0;
for i:=1 to n do
begin
read(b[i]);
if(b[i]<0)then begin
k:=k+1;
c[k]:=b[i]*4;
end;
end;
for i:=1 to k do
begin
for j:=1 to k-i do
begin
r:=c[j];
if(c[j]>c[j+1])then begin
c[j]:=c[j+1];
c[j+1]:=r;
end;
end;
end;
w:=1;
for i:=1 to k do
begin
write(c[i],' ');
end;
writeln;
for i:=2 to k do
if(c[i]<>c[i-1])then w:=w+1;
writeln(W);
<span>end.</span>
Дано
Решение.
формулы: I = i*K, N = 2^i
получим i для первого и второго алфавита.
отсюда имеем во втором алфавите отводится в два раза больше памяти под хранение.
так как N = 2 ^ i
то имеем что в первом алфавите N = 2, а во втором N = 4
Неправильный ответ это второй под буквой А
//Pascal ABC.NET v3.1 сборка 1172
Var
c:char;
begin
readln(c);
if ((c>='a') and (c<='z')) or ((c>='A') and (c<='Z')) or ((c>='А') and (c<='п')) or ((c>='p') and (c<='ё')) then writeln('Буква') else writeln('Символ');
end.
Пример ввода:
ю
Пример вывода:
Буква