Ответы на вопрос:
Var i: integer; j,n: real; begin write('введите число: '); readln(n); i: =trunc(n); j: =round(frac(n)*100); write(i,' руб. ',j, ' коп.'); end.
Популярно: Информатика
-
mon1316.11.2020 04:19
-
danilgrekov2001.10.2020 23:17
-
gevorpilot10.05.2023 09:01
-
Vilaan197226.02.2020 00:34
-
помогитесдомашкой301.04.2020 20:56
-
game10855130.05.2020 08:46
-
Svetafun4614.04.2023 19:35
-
таня203307.04.2022 15:31
-
postnovat18.07.2021 00:18
-
lunova092115.08.2021 18:36