Заранее . 1. 13 № 73 переведите двоичное число 1110011 в десятичную систему счисления. 2. 13 № 93 переведите - id790899320220220 от Brutal94 20.02.2022 11:50

Question

Информатика: Заранее . 1. 13 № 73 переведите двоичное число 1110011 в десятичную систему счисления. 2. 13 № 93 переведите двоичное число 1101001 в десятичную систему счисления. 3. 13 № 213 переведите число 134 из десятичной системы счисления в двоичную систему счисления. сколько единиц содержит полученное число? в ответе укажите одно число — количество единиц. 4. 13 № 233 переведите число 143 из десятичной системы счисления в двоичную систему счисления. сколько единиц содержит полученное число? в ответе укажите

Brutal94 · Accepted Answer

ответ: 1909

Var
s : String;
n : Integer;
Function IncS(a : String) : String;
Begin
a[Length(a)]:=Chr(Ord(a[Length(a)])+1);
If a[Length(a)]>'D' then
    IncS:=IncS(Copy(a,1,Length(a)-1))+'A'
else IncS:=a;
end;
Function Check(a : String) : Boolean;
Begin
Check:=False;
If (Pos('A',a)>0) then
Begin
    Delete(a,Pos('A',a),1);
    If (Pos('A',a)>0) then Check:=True;
end;
end;
Begin
s:=''; n:=0;
While s<>'' do
Begin
{ Writeln(s); }
    If Check(s) then Inc(n);
    s:=IncS(s);
end;
Writeln(n);
end.

MOGZ ответил