Var x,y:real;
begin
write('x, y:');
readln(x,y);
if (y<=-0.75*x*x+5)and(y>=x)and(y>=-x)
then writeln('Точка принадлежит заштрихованной области')
else writeln('Точка не принадлежит заштрихованной области');
end.
Пример:
<span>x, y:
2 1
Точка не принадлежит заштрихованной области</span>
Пусть n = 4 (всех цифр) ; k = 3 (из них сочетаний)
<span>A = n! / (n - k)! = 4! / (4-3)! = 24 </span>
<span>Ответ: 24 3-х значных числа.</span>
Dim a as double
dim n as double
dim c as double
a=(textbox1.text)
n=(textbox2.text)
c=(a+1)n
(textbox3.text)=c
Получится такая последовательность кодов:
<span>86 42 01 41 83 43 01 41 86 42</span>
<span>
</span>
1024 бита=1024/8=128 байт
24 байта=24*8=192 бита
1000 байт=1000/(2в 10 степени) килобайт=1000/(2 в 20 степени) Мегабайт
81000920 бит=81000920/8/1024=9887,8 килобайт=9887,8/1024=9,656 мегабайт