Program main;
Var A, B: array [1..100] of integer;
k, n, i: byte;
Begin
i:=1;
Readln (n);
For k:=1 to n do
Readln(A[k]);
For k:=1 to n do
If A[k]<0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For k:=1 to n do
If A[k]=0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For k:=1 to n do
If A[k]>0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For i:=1 to n do
Writeln (B[i]);
Readln;
End.
Program prog;
uses crt;
var a,b,v:integer;
begin
clrscr;
write('Возраст Антона = ');
readln(a);
write('Возраст Бориса = ');
readln(b);
write('Возраст Виктора = ');
readln(v);
writeln;
if (a>b)and(a>v) then writeln('Антон старше всех.');
if (b>a)and(b>v) then writeln('Борис старше всех.');
if (v>a)and(v>b) then writeln('Виктор старше всех.');
if (a=b)and(a>v) then writeln('Антон и Борис старше Виктора');
if (a=v)and(a>b) then writeln('Антон и Виктор старше Бориса');
if (b=v)and(b>a) then writeln('Борис и Виктор старше Антона');
if (a=b)and(a=v) then writeln('Антон,Борис и Виктор одного возраста');
end.
Ээ сними 32 и 33 сфоткай а то я не решу
Для перевода необходимо умножить разряд числа на соответствующую ему степень разряда.
101011 = 25*1 + 24*0 + 23*1 + 22*0 + 21*1 + 20*1 = 32 + 0 + 8 + 0 + 2 + 1 = 43