Program p1;
var a,b:integer;
i,n,x:integer;
begin
Writeln ('Введите к-во');
readln (n);
x:=0;
for i:=1 to n do
begin
Writeln ('Введите число:');
readln (a);
if a>=0 then
begin
if x=0 then b:=a;
if (x>0) and (a<b) then b:=a;
x:=x+1;
end;
end;
Writeln('Наименьшего положительного число: ',b);
<span>end.</span>
Ответ:
4533₈ = 2395₁₀
C49A₁₆ = 50330₁₀
1011100011₂ = 739₁₀
Объяснение:
4533₈ = 3*8⁰ + 3*8¹ + 5*8² + 4*8³ = 2395₁₀
C49A₁₆ = A*16⁰ + 9*16¹ + 4*16² + C*16³ = 50330₁₀
1011100011₂ = 1*2⁰ + 1*2¹ + 0*2² + 0*2³ + 0*2⁴ + 1*2⁵ + 1*2⁶ + 1*2⁷ + 0*2⁸ + 1*2⁹ = 739₁₀
Если бы я был организатором производства печенья, то сначала потратил бы дни на приобретение 8 духовок, на это ушло бы 8 * 6 = 48 дней. Потом с помощью 8 духовок и 1 пары рук за 60 дней сделал бы 540 пачек печенья. Итого, 108 дней и 540 пачек, из которых 8 сверхплановых можно кому-нибудь подарить.
Кто быстрее, ребята?