Ответы на вопрос:
Var c: integer; n: real; begin write('перевод в градусы (1) или в радины (2) ? '); readln(c); write('переводимая величина = '); readln(n); if c = 1 then writeln(n, ' radian = ', n * 180 / pi, ' gradus') else writeln(n, ' gradus = ', n * pi / 180, ' radian') end.
Популярно: Информатика
-
МаШкА42817.04.2023 23:10
-
Додоша1829.05.2022 11:21
-
glamur906825.11.2021 07:56
-
lyubov13090616.10.2021 08:08
-
АнимешникИз2К1731.05.2021 05:23
-
альбинка2502.06.2023 07:20
-
kirrilkyplenow13.01.2022 15:51
-
olga1985225.05.2020 23:19
-
vgrecuha614.12.2021 12:27
-
АндрейВоробейtop17.04.2021 02:19