program G1;
var
a:real;
begin
writeln('Сколько килограмм?');
readln(a);
a:=a*1000;
writeln('Это ',a,' грамм')
end.
10111(2) = 2^4+2^2+2^1+2^0 = 16+4+2+1 = 23(10)
10(16) = 16(10)
Средняя скорость = (12+23+2*16)/4 = 67/4 = 16,75(10)
<span>16,75 = 2^4+2^(-1)+2^(-2) = 10000,11(2)
Ответ: 10000,11(2)</span>
8=2³, поэтому достаточно заменить каждые три двоичные цифры одной восьмеричной. Группы формируем в обоих направлениях, начиная от десятичной точки. Если в самой левой группе будет меньше трех разрядов, дописываем слева недостающие нули. Для самой правой группы дописываем нули справа.
11011.01₂ = 11 011 . 01₂ = 011 011 . 010₂ = 33.2₈
Есть специальная функция для округления с точностью до определённого разряда: RoundTo(). Она объявлена в модуле Math.
<span>var
Res, Num : Extended;
begin
//Округление до сотых долей:
Res := RoundTo(Num, -2);
//Округление до десятых долей:
Res := RoundTo(Num, -1);
//Округление до единиц:
Res := RoundTo(Num, 0);
//Округление до десятков:
Res := RoundTo(Num, 1);
//Округление до сотен:
Res := RoundTo(Num, 2)<span>;
</span></span>end;
Функция SimpleRoundTo()<span> сходна с </span>RoundTo()<span> – различие лишь в способе округления последнего знака. </span>SimpleRoundTo()<span> округляет последнее число в большую сторону, а RoundTo() использует так называемое банковское округление, приводя число к ближайшему четному</span>
13 строка, удали скобки с выражений! then Begin c:=... ; y:=...;else вот так