Дан номер единицы массы (целое число в диапазоне 1–5) и масса тела в этих единицах (вещественное число). Найти массу тела в килограммах
Категория: Delphi/Pascal
2011-12-12 23:52:24
Единицы массы пронумерованы следующим образом:
1 — килограмм,
2 — миллиграмм,
3 — грамм,
4 — тонна,
5 — центнер.
code: #pascal
Program Case7; Var x:Integer; Massa:Real; Begin WriteLn('Введите массу:'); ReadLn(Massa); ReadLn(x); Case x Of 1:WriteLn(Massa,' килограмм = ',Massa,' килограмм'); 2:WriteLn(Massa,' миллиграмм = ',Massa/1000000,' килограмм'); 3:WriteLn(Massa,' грамм = ',Massa/1000,' килограмм'); 4:WriteLn(Massa,' тонна = ',Massa*1000,' килограмм'); 5:WriteLn(Massa,' центнер = ',Massa*100,' килограмм'); End; End.
автор: Sklyarov Sergej a.k.a. S9
Поделиться: