45 -1 = 44
44 / 2 = 22
22 / 2 = 11
11 - 1 = 10
10 / 2 = 5
Итого: 2 1 1 2 1
№7
172₈=1*8²+7*8¹+2*8⁰=64+56+2=122₁₀
2ЕА₁₆=2*16²+14*16¹+10*16⁰=746₁₀
101010₂=1*2⁵+0*2⁴+1*2³+0*2²+1*2¹+0*2⁰=32+0+8+0+2+0=42₁₀
10,1₂=1*2¹+0*2⁰+1*2⁻¹=2+0+0,5=2,5₁₀
243₆=2*6²+4*6¹+3*6⁰=72+24+3=99₁₀
№6
143,511₁₀=1*10²+4*10¹+3*10⁰+5*10⁻¹+1*10⁻²+1*10⁻³
143511₈=1*8⁵+4*8⁴+3*8³+5*8²+1*8¹+1*8⁰
143511₁₆=1*16⁵+4*16⁴+3*16³+5*16²+1*16¹+1*16⁰
1435,11₈=1*8³+4*8²+3*8¹+5*8⁰+1*8⁻¹+1*8⁻²
program prim;
var a,b:real;
begin
writeln('Введите 2 числа: ');
read(a,b);
if a>b then writeln('Большее число = ', a)
else writeln('Большее число = ', b);
end.
( На самом деле это очень легко) )
{1}
var
n: integer;
begin
write ('Введите заработанную сумму: ');
readln (n);
write ('Вы получите: ', (n*0.77)*0.61)
end.
{2}
var
a: array of double;
n, i: byte;
sum: longint;
begin
write ('Введите кол-во дробных чисел: ');
readln (n);
setLength (a, n);
for i:=0 to n-1 do
begin
write ('Введите ', i+1, ' число: ');
readln (a[i]);
end;
for i:=0 to n-1 do
begin
writeln ('Целая часть ', i+1, ' числа: ', trunc(a[i]));
inc (sum, trunc(a[i]));
end;
write ('Сумма целых частей: ', sum);
end.
{3}
var
a, b, c, p: double;
begin
write ('Введите стороны треугольника: ');
readln (a, b, c);
if (a>=(b+c)) or (b>=(a+c)) or (c>=(b+a)) or (a<=0) or (b<=0) or (c<=0) then
write ('Такой треугольник не существует')
else begin
p:=(a+b+c)/2;
write ('Его S = ', sqrt (p*(p-a)*(p-b)*(p-c)):7:2, ' ед^2' );
end;
end.