Они одинаковые,потому что система хранения информации тысячеричная.Байт, Килобайт, Мегабайт, ГИГАБАЙТ,Террабайт.
Program asd;
Const n=30;
var M:array[1..n] of integer;
i,k,s:integer;
BEGIN
Writeln('Заполните массив: ');
For i:=1 to n do
begin
Readln(M[i]);
end;
s:=0;
For i:=1 to n do
begin
If (M[i] mod 2=0) then
begin
inc(k);
s:=s+M[i];
end;
If (s mod 2=2) and (k mod 2=0) then
Writeln('Верно.')
else Writeln('Не верно');
end;
<span>END.</span>
110(n)=12(10)
1×n²+1×n+0=12
n²+n-12=0
D=1+4×12=49
n₁=(-1-7)/2=-4 <0 - основание должно быть натуральным числом
n₂=(-1+7)/2=3
Основание системы счисления 3.
110(3)=12(10)
Function y(x: real): real;
begin
if x < -1 then
y := 1 - 2 * x
else if x <= 2 then
y := 2 + x * x
else
y := abs(2 * x * x) + 1;
end;
function z(x, y: real): real;
begin
z := 2 * x / (48 - y * y) + 15 * sin(x);
end;
var
x: integer;
begin
for x := -10 to 10 do
writeln('x=',x, ' y=', y(x), ' z=', z(x, y(x)));
end.