// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=ReadInteger3('a,b,c =');
var k:= ReadInteger('k =');
var (x,y,z):=ReadInteger3('x,y,z =');
Writeln(min(x div(a*k),min(y div(b*k), z div(c*k))));
end.
<u>Пример:</u>
a,b,c = 2 3 4
k = 2
x,y,z = 4 8 19
1
1) log2(64) * 20 = 1200 битов. Если пересчитывать в байты, но нужно определиться, как 6 битов в них упаковывать.
2) log2(256) / 8 * 256 = 256 байтов. Поскольку 1 килобайт = 1000 байтам, то объём составляет 0,256 килобайта.
В рулетке общее количество лунок 64=2^6=> 6 бит*1 лунка=6<span>
3) 3 Кбайт = 3*2^10байт =3*2^10/2^3 бит=3*2^7 бит
4)8 Мбайт= 2^3*2^20 байт=2^23 байт</span>
1.
Var
a,n:integer;
Begin
write('Введите число n ');
Readln(n);
while a<=n do
Begin
write(a,' ');
a:=a+1;
End;
End.
2.
Var
a,n,d:integer;
Begin
d:=2;
write('Введите число n ');
Readln(n);
while a<n do
Begin
write(d,' ');
d:=d+2;
a:=a+1;
End;
<span>End.
</span>3.
Var
a,b:integer;
Begin
write('Введите числа a и b: ');
Readln(a,b);
while a<=b do
Begin
writeln(a,'^2 = ',sqr(a),' ');
a:=a+1;
End;
<span>End.</span>
<span>а) 111000111 (2) = 455 (10)
б) </span><span>100011011 (2) = 283 (10)
в) </span><span>1001100101 (2) = 613 (10) и 1001 (2) = 9 (10)
г) </span><span>1001001 (2) = 73 (10) и 11 (2) = 3 (10)</span>
В двоичной системе счисления дробного числа быть не может