===== PascalABC.NET =====
begin
var x := 12.0;
while x <= 15.1 do
begin
var y := Sin(x) - x ** 2;
Writeln(x:4:1, y:16:9);
x += 0.2
end;
end.
100010,011101=42,35 (вос. сис.)
10010,011101=22,1D (шест. с.)
111 111 111 000 001=77701(в.с)
0111 1111 1100 0001(добавляем 0)=7FC1 (ш.С.)
0,000110101=0,065(в.с) (доб. 00)
0,0110101=0,35(ш.с.)
0,11 100 110 101=0,3465(в.с.)
0,111 0011 0101=0,735(ш.с.)
Function reverse(x:longint):longint;beginvar a,b:integer;a:=0;b:=0;while x>0 dobegina:=(x mod 10);b:=((b*10)+a);x:=(x div 10);reverse:=b;end;end;var c:longint;beginwriteln('введите число');read(c);write('ваш ответ ', reverse(c));end.
Вот так как-то вроде ничего непонятного если, что пиши-поясню.
<span>Целая часть от деления Остаток от деления</span><span>12 div 2 = 6 12 mod 2 = 0</span><span>6 div 2 = 3 6 mod 2 = 0</span><span>3 div 2 = 1 3 mod 2 = 1</span><span>1 div 2 = 0 1 mod 2 = 1</span><span>Остаток от деления записываем в обратном порядке. Получаем число в 2-ой системе счисления: 1100</span>
<span>12 = 1100|2
</span><span>Для перевода дробной части числа последовательно умножаем дробную часть на основание 2. В результате каждый раз записываем целую часть произведения.
0.75*2 = 1.5 (целая часть 1)
0.5*2 = 1 (целая часть 1)
0*2 = 0 (целая часть 0)
0*2 = 0 (целая часть 0)
Получаем число в 2-ой системе счисления: 1100
0.75 = 1100|2
В итоге получаем число: 1100.1100|<span>2</span></span>
<span>это организационно-правовой документ, в котором определяются основные функции, обязанности, права и ответственность сотрудника организации при осуществлении им деятельности в определенной должности.</span>