Var a,b: integer;
<span>begin
</span><span> write('a b через пробел: ');
</span><span> readln(a,b);
</span><span> if (((a div 10) mod 10) mod 2 = 0) or
</span><span> (((b div 10) mod 10) mod 2 =0) then
</span><span> begin
</span><span> a:=a*a; b:=floor(sqrt(b));
</span><span> end
</span><span> else
</span><span> begin
</span><span> a:=floor(sqrt(a));
</span><span> b:=b*b;
</span><span> end;
</span><span> writeln('a = ',a,' b = ',b);
</span><span>end.
</span>a b через пробел: 13 54
<span>a = 3 b = 2916
</span>
a b через пробел: 24 16
<span>a = 576 b = 4
</span>
Var
i, k, n: integer;
a: array[1..10000]of integer;
begin
readln(n);
for i := 1 to n do read(a[i]);
readln(k);
for i := 1 to n do
if (a[i] = k) then
begin
write(i);
exit;
end;
write('0');
end.
Сканер - С =200
Принтер - П =250
Монитор - М =450
П | С=450
П & М=40
С & М=50
П | С | М-?
Исходная формула:
<em>П | С | М = П + С + М - (П & М) - (П & С) - (С&M) + (П & С & М)</em>
П&C и П&C&M у нас нет.
Посмотрим на П, С, П|C
П+С=П|C, П и С не пересекаются, поскольку их сумма равна их объединению П&С=0, это значит что П&C&M тоже равно 0
Подставим все в формулу:
П | С | М= 250 + 200 + 450 - 40 - 0 - 50 + 0=810
<u>Ответ: 810</u>
1. A2=144/12/12=1; B2=144/12*2=24
2. A2=144/(12*12)=1
3. 0, так как на 0 делить нельзя.