Если не ошибаюсь , по-моему , ответ 77
Var
m: array [1 .. 16] of integer;
i,countMin: integer;
begin
for i := 1 to 16 do
begin
randomize;
m[i] := random(100);
if(m[i] <10) then
countMin:=countMin+1;
end;
writeln('Исходный массив');
for i := 1 to 16 do
writeln('m[', i, ']=', m[i], ' ');
writeln("Количество элементов <10",countMin);
readln;
end.
Var
n,i : longint;
st : string;
ch : char;
begin
readln(n);
str(n,st);
ch:='';
for i:=1 to length(st) do if st[i]>ch then ch:=st[i];
writeln(ch);
end.
Var
s1,s2 : String;
n,i : Integer;
Begin
n:=0;
Readln(s1);
Readln(s2);
For i:=1 to Length(s1) do If Pos(s1[i],s2)=0 then Inc(n);
Writeln(n);
end.
Чтобы число 145 возвести в двоичную систему, нужно его делить на 2, пока не останется единица, поэтому 145 = 10010001, значит, количество единиц в двоичной записи числа 145 - 3.
Ответ: 3 единицы.