Const N = 50;
var
numbers: array [1..50] of integer;
i, k: integer;
begin
k := 0;
for i:=1 to N do
numbers[i] := Random(100);
for i:=1 to N do
if numbers[i] <> numbers[N] then
inc(k);
write(k);
end.
<span>в пачке было 42х листа формата А3.Каждый лист разрезали и получили 124х листов формата А4. В системе счисления с каждим основанием вели счёт?</span>
Ответ: В десятичной...
Будет выглядеть как
s:=sqr(a)+(2*a*b*c)+sqr(b)-(4*c);
Систематизацией .........
Дальнейшее вычисление развернутого выражения приведет к получению значения соответствующего числа в той системе счисления, в которой будет выполняться вычисление.