513(10)=201 в шестнадцатиричной сс
1)uses crt;
var a,b:integer;
begin
readln(a);
readln(b);
if ((a>0) and (b>0)) or ((a<0) and (b<0)) then writeln('Имеют одинаковые знаки');
if ((a>0) and (b<0)) or ((a<0) and (b>0)) then writeln('Имеют разные знаки');
if (a=0) or (b=0) then writeln('Некорректно');
end.
2) какой именно коэффициент?
![\displaystyle Y= \begin {cases} D/10, & D \leq -30 \\ -2D+1, & -30\ \textless \ D\ \textless \ 20 \\ (D-1)^2, & D \geq 20 \end {cases}](https://tex.z-dn.net/?f=%5Cdisplaystyle%20Y%3D%20%5Cbegin%20%7Bcases%7D%20D%2F10%2C%20%26%20D%20%5Cleq%20-30%20%5C%5C%20-2D%2B1%2C%20%26%20-30%5C%20%5Ctextless%20%5C%20D%5C%20%5Ctextless%20%5C%2020%20%5C%5C%20%28D-1%29%5E2%2C%20%26%20D%20%5Cgeq%2020%20%5Cend%20%7Bcases%7D)
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var d:=ReadReal('D=');
if d<=-30 then Writeln(d/10)
else
if d>=20 then Writeln(sqr(d-1))
else Writeln(1-2*d)
end.
Это должно храниться на компьютере на диске D и это надо принести на флешке ил распечатать
1 кбайт = 8000 бит
0.5 кбайт = 1 кбайт / 2 = 4000 бит