Ответы на вопрос:
// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin var x: =readreal; writeln(100*frac(x)+trunc(x)/100: 0: 2) end. примеры 16.59 59.16 32.47 47.32
Популярно: Информатика
-
сашапомогайка27.04.2022 21:37
-
mrPool1027.06.2023 01:48
-
nastyluk12509.11.2020 18:32
-
kirilos201405.02.2022 03:03
-
XxXBulykXxX31.01.2022 17:37
-
Levkoi12.11.2022 15:17
-
DariaBlack77726.08.2022 20:17
-
Skyflay1236707.10.2022 04:06
-
rukozhop200201.02.2021 10:24
-
muslima200320.07.2020 08:08