-rescue-, выводи так: writeln ("Alfa=", x1:k:m, " Lb=", Lb:k:m); Где k - количество знаков мантиссы, например, 5, а m - количество знаков порядка, например, 4.
И вот ещё одна - Дано число (число>0). Проверить, или все его цыфри одинаковые, если нет - тогда сколька разных ? ( Ну толька без масива и строчки, пожалуйста)
30 сен 2008 в 22:53