Поделитесь своими знаниями, ответьте на вопрос:
И8-8 2 вариант 1) заполните пропуски 21310 = ? , f816 = 210 2430 = ? 110011012 = ? 10 2) выполните действия в двоичной системе 110101 + 10111 = 1101 101 + 111010 = 1110101 — 101110 = 110001 — 11011 = 110001 - 11 = 110011 - 110 = 3) решите пример 1410 + 148 + 1416 = ? , 4) получите прямой двоичный код для отрицательного числа: -2323
a,k,m,min,i,flag:integer;
begin
readln(a);
m:=a; {сохраняю введенное значение и считаю кол-во цифр в числе}
while m >0 do
begin
m:=m div 10;
k:=k+1;
end;
min:=9; {записываю самое большое нечетное число}
{в цикле отсекаю последнюю цифру в числе и проверяю ее на нечетность. Если она нечетная и меньше числа min, то сохраняю ее в min и присваиваю переменной Flag 1. Если к концу программы в переменной flag будет 1, значит хотя бы одна нечетная цифра в числе была, если flag=0 тогда в числе нет нечетных}
for i:=1 to k do
begin
if (a mod 10<=min)and(a mod 2<>0) then
begin
min:=a mod 10;
flag:=1;
end;
a:=a div 10;
end;
if flag=0 then
writeln('нет нечетных')
else
writeln(min);
end.