Написать программу, которая бы по введенному номеру единицы измерения (1- килограмм, 2- миллиграмм, 3- грамм, 4- тонна, 5- центнер) и массе M выдавала соответствующее значение массы в килограммах. Выполнить в Паскале

Предыдущий
вопрос Следующий
вопрос

Пример решения на Pascal:

program ConvertWeight;
var
unitType: integer;
weight: real;
begin
writeln('Введите номер единицы измерения (1- килограмм, 2- миллиграмм, 3- грамм, 4- тонна, 5- центнер): ');
readln(unitType);
writeln('Введите массу: ');
readln(weight);
case unitType of
1: writeln('Масса в килограммах: ', weight);
2: writeln('Масса в килограммах: ', weight / 1000000);
3: writeln('Масса в килограммах: ', weight / 1000);
4: writeln('Масса в килограммах: ', weight * 1000);
5: writeln('Масса в килограммах: ', weight * 100);
end;
end.

Эта программа запрашивает у пользователя номер единицы измерения и массу, а затем выполняет конвертацию в килограммы в соответствии с выбранной единицей измерения.