Ответы на вопрос:
5 -А
2 задание-С
текстовой редактор может редактировать размер цвет расположение текста
Объяснение:
Var n,x: integer; m: real; begin writeln('введите единицу массы'); read (n); writeln('введите массу'); read (m); if (n< 1) or (n> 4) then writeln('ошибка'); if n = 1 then write (m,' кг'); if n = 2 then begin m: =m/1000/1000; write (m,' кг'); end; if n = 3 then begin m: =m/1000; write (m,' кг'); end; if n = 4 then begin m: =m*1000; write (m,' кг'); end; end.
Популярно: Информатика
-
Снежана2111110.05.2023 11:58
-
альбина33027.03.2022 14:49
-
вася78016.10.2022 05:52
-
vasilchenko1722.04.2023 21:40
-
Tgfdvbgg05.03.2022 15:40
-
lshellter07.03.2021 23:16
-
tolodono27.05.2020 18:04
-
АльпакаКайа12.12.2022 23:03
-
masha245005.10.2022 22:34
-
voolll17.02.2021 23:46