Хх37 - 100 вариантов расположения всех цифр
xx73 - еще 100
х3х7 - 100
х7х3 - 100
3хх7 - 100
7хх3 - 100
3х7х - 100
7х3х - 100
...
короче всего 12*100=1200 вариантов
a = 6 => b = 18 - 3 = 15
<em>a < b(6 < 15) - да</em>
<em>b < 2 - нет, b = 15 - 2 = 13</em>
<em>b < 2 - нет, b = 13 - 2 = 11</em>
<em>b < 2 - нет, b = 11 - 2 = 9</em>
<em>b < 2 - net, b = 9 - 2 = 7</em>
<em>b < 2 - net, b = 7 - 2 = 5</em>
<em>b < 2 - net, b = 5 - 2 = 3</em>
<em>b < 2 - net, b = 3 - 2 = 1</em>
<em>b < 2 - da, Вывод: b(1)</em>
Ответ: 2
1 A 3 4 C ,2 B 9 =
4 3 2 1 0 -1 -2 -3 <-----позиции цифр в числе
=1*16^4 +10*16^3+3*16^2+4*16 +12 + 2*16^-1+11*16^-2+9*16^-3=
=107340+ 697/4096=107340,170166
<em>// PascalABC.NET 3.2, сборка 1425 от 22.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function KS(a:array[,] of integer):(integer,integer);
begin
(var k,var s):=(0,0);
for var i:=0 to a.RowCount-1 do
for var j:=i to a.ColCount-1 do
if a[i,j]<0 then (k,s):=(k+1,s+a[i,j]);
Result:=(k,s)
end;
begin
var a:=MatrRandom(5,5,-50,50); a.Println(4);
var r:=KS(a); Writeln('k=',r[0],', Sum=',r[1]);
var b:=MatrRandom(8,8,-80,45); b.Println(4);
r:=KS(b); Writeln('k=',r[0],', Sum=',r[1]);
end.
<u>Пример</u>
-9 -41 -6 -49 36
6 -7 -2 -1 28
22 -29 -20 -12 7
-11 -37 14 34 -41
-23 11 -9 -26 -46
k=11, Sum=-234
9 34 -68 -32 -43 -61 -19 -55
-66 3 -79 41 -47 27 -7 31
-71 -7 -26 28 -58 -2 -61 -77
-66 39 -39 -76 -13 2 21 6
-56 42 -61 1 -39 -69 -57 -2
-51 -79 -57 10 -10 -27 29 19
-48 -55 -56 -76 43 -32 29 -70
15 -71 -46 -37 23 -24 3 -22
k=23, Sum=-1010
Алгоритм записан на школьном алгоритмическом языке, который практически совпадает с Паскалем, поэтому конвертирование а Паскаль выполняется "строка в строку" путем тривиальной замены русских служебных слов английскими.
var
x:real;
begin
Read(x);
if x<0 then
Writeln('отрицательное число')
else Writeln('положительное число')
end.
