Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
х = log₂ n;
х = log₂ 12 бит.
var
i: integer;
begin
for i: =100 to 999 do
if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)
then writeln(i);
end.
64000 бит/с*16 c=1024000 бита/8=128000 байт=125 килобайт
1) найти убыль как к-во * 12%
2) найти прирост как к-во * 20%
3) к-во = к-во-убыль+прирост
выполнить 8 раз
x,a,b: real;
x: =100000;
for i: =1 to 8 do
a: =x*0.12;
b: =x*0.20;
x: =x+b-a;
end;
writeln(x);
Популярные вопросы