((x≤10)→(x²<A)) * ((y²≤A)→(y<15))=1
(x>10)+(х²<A)=1 (y²>A)+(y<15)=1 (+ лог сложение)
x≤10 x²≤100 Ax≥100 y≥15 y²≥225 Ay≤225
A=225-100+1=126 ответ 126
14)
((x∈P)*(x∈Q))→(x∈A)=1
обозначения: P=(x∈P) Q=(x∈Q) A=(x∈A)
¬(P*Q) + A=1 (¬A+A=1)
¬(P*Q)=¬A
A=P*Q
P=[12;23]
Q=[8;30]
......°..........°
...............................°.................°.................>x
8 12 23 30
P*Q=[12;23] чётные={12, 14, 16,18,20,22} --> 6 штук ответ 6
<span>Электронная таблица - вид программного обеспечения, предназначенного для рассчётов, основанных на математических формулах.</span>
Можно решить с помощью программы на Паскале.
Работа проверена в версии PascalABC.NET 3.4.2.1837 (12.10.2018)
var
a, x: BigInteger;
n: Integer;
begin
x := ReadInteger('введите основание степени');
a := x ** 10;
n := 0;
repeat
if (a mod 2) = 1 then
n += 1;
a := a div 2;
until a = 0;
writeln('количество единиц в двоичной записи = ', n);
end.
Результаты:
1) для 124^10 -содержится 24 единицы
2) для 252^10 -содержится 27 единиц
3) для 215^10 -содержится 33 единицы
Uses crt;
var x,y:integer;
begin
write('x='); readln(x);
y:=sqr(1-sqr(x)+5*sqr(sqr(x)));
writeln('y=',y);
<span>end.</span>
Var
i,min:integer;
m:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
readln(m[i]);
if i=1 then min:=m[i];
if m[i]<min then min:=m[i];
end;
for i:=1 to 10 do
begin
if m[i]=0 then m[i]:=min;
write(m[i],' ');
end;
<span>end.</span>
