2) Команда( B:= 3) Значение переменной 3
3)Имя переменной С ,Значение переменной 2+3
<em>// PascalABC.NET 3.2, сборка 1504 от 09.07.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),0,99); a.Println;
var s:=a.Partition(x->x.IsEven);
if s[0].Count<=s[1].Count then Writeln(s[0].Min)
else Writeln(s[1].Min)
end.
<u>Примеры</u>
n= 9
33 43 60 94 5 19 84 58 6
5
n= 10
54 55 71 65 79 88 71 98 8 71
8
В случае невыполнения пердусловия
Числу в 16 системе счисления числу 13 буква. (В)
1) 49 в 8 сс=61
61 в 10сс =6*8+1=49
2)154,8 в 8 сс 232,63
2*64+3*8+2+6*1/8+4*1/8=154,8