<span>Одновременно и нарицательное, и собственное?
</span>
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(10, -10, 10);
a.Println;
var i := a.IndexMax;
Writeln('максимальный a[', i + 1, ']=', a[i]);
i := a.IndexMin;
Writeln('минимальный a[', i + 1, ']=', a[i])
end.
<h2>-2 0 -3 0 3 -2 1 -9 -9 -2</h2><h2>максимальный a[5]=3</h2><h2>минимальный a[8]=-9</h2>
Var
a,b,c:Integer;
Begin
Read(a,b,c);
if (a*b > c*2-b) then Writeln(a+b)
else Writeln(b+c);
end.
40 делится на 2,4,5,8,10,20, а значит что в 6 системах счисления с основанием < 40 и во всех системах счисления с основанием >= 40.
Ответ: 6
1) 4096:1024=4кб
4)8×60×30×100=144 000:28 800=5с
5)51 200:16=3200×10=32000 символа
3)512×8=4096×2=8192:1024=8кб
