Program m3;
var s,k,m:real;
begin
readln(m,k);
writeln('m=',m,' k=',k);
s:=(26*k-m)/(6-4*k-56*m*k);
writeln('s=',s);
<span>end.</span>
Значащие нули - нули не находящиеся на 1 позиции числа . Пусть n кол-во значащих нулей :
289 (10) = <span>100100001 (2) , тогда n = 6
309 (10) = </span><span>100110101 (2) , тогда n = 4
</span>154 (10) = <span>10011010 (2) , тогда n = 4
</span>763 (10) = <span>1011111011 (2) , тогда n = 2</span><span>
</span>
Перевести число 100110 из двоичной в десятичную
Program prim;
Var A:array[1..10] of integer;
i,N,S:integer;
begin
Writeln('Ввод N');
Readln(N);
For i:=1 to N do
begin
Writeln('Ввод ',i, ' эл.массива');
Readln(A[i]);
end;
S:=0;
For i:=1 to N do
S:=S+A[i];
Writeln('S = ', S);
Readln;
end.
Program n1;
var a,b: integer;
begin
readln(a,b);
if (odd(a)) xor (odd(b)) then write('true')
else write('false');
end.