Из каждой цифры можно составить по шесть трехзначных чисел. И того равняется 24.
Var a:array[1..10] of Integer ;
p,i:integer;
Begin
p:=1;
WriteLn('Массив');
For i:= 1 to 10 do
begin
a[i]:=Random(20)-10;
Write(a[i]:3);
if a[i]<0 then p:=p*a[i];
end;
WriteLn;
WriteLn('Произведение отопительных элементов = ',p)
end.
11001110₂<x<DE₁₆
DE₁₆=11011110₂
11001110<x<11011110
11011110₂
-
11001110₂
00010000₂
10000₂=16₁₀
ответ 16
Вкантакте однокласникт и твитер
Нужно что-то присвоить функции для случая, когда (2*a+b-c)<0
Например, так:
function sqrt1 (a, b, c: real): real;
begin
if (2 * a + b - c) < 0 then
<span>begin writeln (' complex number '); sqrt1:=-1; end</span>
else sqrt1:= sqrt(2 * a + b - c);
<span>end;</span>