Чтобы перевести десятичное число в двоичную систему счисления нужно данное число делить на 2, пока оно не поделится без остатка, а далее,записать полученное число в двоичной системе счисления справо на лево.. Сейчас покажу как. Начинаем деление:
1- 519:2=259 (Остаток 1).
2- 259:2=129 (Остаток 1).
3- 129:2=64 (Остаток 1).
4- 64:2=32 (Остаток 0).
5- 32:2=16. (Остаток 0).
6 - 16:2=8 (Остаток 0).
7- 8:2=4 (Остаток 0).
8- 4:2=2. (Остаток 0).
9 - 2:2=1. (Остаток 0).
Записываем: 1000000111.
То есть, 519 в десятичной системе счисления равен 1000000111 в двоичной системе счисления.
В задании нужно узнать сколько единиц в записи числа, получаем что 4. (Вариант 4).
Program Alexander1;
uses crt;
const n = 10;
var
A:array [1..n] of real;
i,k:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
Randomize;
{ввод чисел}
for i:=1 to n do
begin
A[i]:= Random(101)-50;
write(A[i]:7:2,' ');
end;
writeln('Числа, которые больше своего правого соседа: ');
k:=0;
for i:=1 to n-1 do
begin
if A[i]>A[i+1] then
begin
k:=k+1;
writeln(i,'-е число: ',A[i],'>',A[i+1]);
end;
end;
writeln('Всего ',k,' таких чисел');
end.
