Program exs;
var a, i, sum : integer;
begin
sum:= 0;
readln(a); {Считывание числа}
for i:= 1 to 4 do begin
sum:=sum + (a mod 10); {Находим остаток от деления на 10}
a:=a div 10; {Выкидываем найденную цифру из числа}
end;
writeln(sum);
end.
Для перевод в двоичную просто делим на 2, а остаток записываем во вторую колонку. Когда остается единица, то выносим ее так же во второй столбик и читаем СНИЗУ ВВЕРХ.
Для перевод из двоичной в десятичную мы над числом начиная с правого проставляем цифры, начиная с нуля. Это будет степенью двойки, на которую будет умножаться соответствующая цифра двоичного представления числа. Просто складываем, вычисляем.
Для примера я взяла число 123.
Используем формулу: V = u*t, где:
V - объем; u - скорость; t - время
t1=30
V2 = V1*2/1.5 ⇒ V1 = V2*1.5/2
u1 = V1/t1 = (V2*1.5/2)/30 = V2/40
u2 = 4*u1 = 4*V2/40 = V2/10
t2 = V2/u2 = V2 / (V2/10) = 10
Var s: string;
begin<span> write('n = '); readln(s);
</span><span> writeln('минимальная цифра: ',s.Sorted.JoinIntoString('')[1]);
</span><span>end.
</span>
n = 9823457
<span>минимальная цифра: 2
</span>
<span>
</span>
