Как число 45 будет представлено в двоичный системе счисления?

45/2=22 остаток 1; 22/2=11 остаток 0; 11/2=5   остаток 1; 5/2=2 остаток 1; 2/2=1 остаток 0; оставшуюся 1 записываем в ответ. ответ 101101

45  в двоичной системе 101101. делим  45: 2=22  и в остатке 1 делим  22: 2=11  и в остатке 0 делим  11: 2=5  и в остатке 1 делим    5: 2=2    и в остатке 1 делим    2: 2=1    и в остатке 0 остаётся  1, теперь  собираем  остатки справа налево получим 101101.

program xxx;

var a,s : string;

    i: integer;

begin

    writeln ('введите слово и символ-');

    readln (s,a);

    for i: =1 to length(a) do

        if copy (s,i,1)=a then writeln (i);

    readln

end.

 

1)

var

i,k: integer;

a: array [1..14] of integer;

begin

k: =0;

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

if a[i] mod 2=0 then k: =i;

end;

if k> 0 then

begin

for i: =k to 13 do a[i]: =a[i]+1;

a[14]: =0;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

2)

var

i,k: integer;

a: array [1..14] of integer;

begin

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

end;

for i: =1 to 7 do

begin

k: =a[i];

a[i]: =a[i+7];

a[i+7]: =k;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.