<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function Res(a:integer;op:char;b:integer):integer;
begin
case op of
'+':Result:=a+b;
'-':Result:=a-b;
'*':Result:=a*b;
'/':Result:=a div b
end
end;
begin
var s:=ReadlnString('Вводите:');
var p:=s.Matches('(((\-)?\d+)|[\+\-\*\/])').ToArray;
if p.Count<>5 then Writeln('Ошибка!')
else begin
var op1:=p[1].Value[1];
var op2:=p[3].Value[1];
var a:=p[0].Value.ToInteger;
var b:=p[2].Value.ToInteger;
var c:=p[4].Value.ToInteger;
if (op1 in ['+','-']) and (op2 in ['*','/']) then
Writeln('='+Res(Res(b,op2,c),op1,a))
else Writeln('='+Res(Res(a,op1,b),op2,c))
end
end.
<u>Примеры</u>
Вводите: -4--3--2
=1
Вводите: 12*3+45
=81
Вводите: 45+12*3
=81
Вводите: -26/13--5
=3
Double A[3][4];
int i,j;
double min;
for(i = 0; i < 3; i++)
for(j=0;j<4;j++)
cin>>A[i][j];
min=A[0][0];
for(i = 0; i < 3; i++)
for(j=0;j<4;j++)
if(A[i][j] < min) {min=A[i][j];}
cout<<min;
Не забывай про лучший ответ.
1) 33*4=132 символа
2)не знаю
3)1 кб-8192 бита, 8192*4=32768. и это надо разделить на 16.... 32768:16=2048 символов в тексте
<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходный массив 12x12 ***');
var a:=MatrRandom(12,12,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Строка, содержащая максимальный элемент');
a.Row(a.ElementsWithIndexes.Select(e->(e[0],e[2]))
.MaxBy(e->e[1])[0]).Println;
Writeln('*** Итоговый массив 12x12 ***');
foreach var i in Range(0,11,2) do
a.SetRow(i,(a.Row(i).Sorted.ToArray));
a.Println(4)
end.
<u>Пример</u>
*** Исходный массив 12x12 ***
88 -26 -91 -74 -60 21 71 40 70 -1 -72 31
-58 -66 49 -5 -22 67 -22 -78 46 -95 -82 25
0 88 -51 -32 -52 22 70 -53 35 88 -14 37
-13 -85 -97 12 -47 67 94 -62 -11 -27 -59 -34
98 81 -9 -30 57 26 -74 84 -43 -16 26 -48
-28 4 -7 -51 28 81 95 -46 47 -88 -92 -36
65 66 68 78 -89 80 -64 -73 47 82 -31 -33
-69 0 -11 -90 62 2 -19 -96 -12 51 -60 49
-25 46 9 8 -23 87 18 86 73 -72 5 90
58 -52 74 -24 -52 -1 4 -11 -65 -74 -82 -72
-8 86 -8 -54 31 -95 75 -86 26 -80 3 -36
-29 27 50 60 -36 -18 -6 -97 95 -2 -48 14
------------------------------------------------
Строка, содержащая максимальный элемент
98 81 -9 -30 57 26 -74 84 -43 -16 26 -48
*** Итоговый массив 12x12 ***
-91 -74 -72 -60 -26 -1 21 31 40 70 71 88
-58 -66 49 -5 -22 67 -22 -78 46 -95 -82 25
-53 -52 -51 -32 -14 0 22 35 37 70 88 88
-13 -85 -97 12 -47 67 94 -62 -11 -27 -59 -34
-74 -48 -43 -30 -16 -9 26 26 57 81 84 98
-28 4 -7 -51 28 81 95 -46 47 -88 -92 -36
-89 -73 -64 -33 -31 47 65 66 68 78 80 82
-69 0 -11 -90 62 2 -19 -96 -12 51 -60 49
-72 -25 -23 5 8 9 18 46 73 86 87 90
58 -52 74 -24 -52 -1 4 -11 -65 -74 -82 -72
-95 -86 -80 -54 -36 -8 -8 3 26 31 75 86
-29 27 50 60 -36 -18 -6 -97 95 -2 -48 14