Var i : Integer;
Begin
For i:=1 to 20 do Writeln(i,'^2 = ',sqr(i));
end.
8=2³, поэтому достаточно заменить каждые три двоичные цифры одной восьмеричной. Группы формируем в обоих направлениях, начиная от десятичной точки. Если в самой левой группе будет меньше трех разрядов, дописываем слева недостающие нули. Для самой правой группы дописываем нули справа.
11011.01₂ = 11 011 . 01₂ = 011 011 . 010₂ = 33.2₈
// PascalABC.NET 3.3, сборка 1600 от 23.12.2017// Внимание! Если программа не работает, обновите версию!
Формула нахождения потенциальной энергии:
Ep - mgh,
где <em>m</em> - масса тела, <em>g</em> - ускорение свободного падения, <em>h</em> - высота.
Осталось подставить известные значения и можно находить потенциальную энергию.