Ответы на вопрос:
Program massa; var m, a: real; begin writeln('введите массу.'); readln(m); writeln('введите единицу измерения массы. 1 - килограмм, 2 - миллиграмм, 3 - грамм, 4 - тонна, 5 - центнер.'); readln(a); writeln('введённое вами значение равно '); if a=1 then write(m, ' килограмм.'); if a=2 then write(m/1000000, ' килограмм.'); if a=3 then write(m/1000, ' килограмм.'); if a=4 then write(m*1000, ' килограмм.'); if a=5 then write(m*100, ' килограмм.'); end. , немного с окончаниями напортачила, но если надо, то можно просто до кг сократить и всё будет ок
Популярно: Информатика
-
ДарьяСв08.03.2023 15:06
-
svetaabc13.07.2020 21:31
-
tubip88805.05.2021 12:46
-
ШколоЛОх09.04.2022 02:39
-
raxievali07.04.2020 22:46
-
Рыпвапрвгпвшпр27.07.2021 20:05
-
svetika081311.05.2023 05:33
-
ArsenKk18.01.2023 14:45
-
1Shupy4ka22.04.2023 06:53
-
наталья73231.05.2020 15:53