Решаем задачи Абрамян на Паскале. Case7

Case7. Единицы массы пронумерованы следующим образом: 1 — килограмм, 2 — миллиграмм, 3 — грамм, 4 — тонна, 5 — центнер. Дан номер единицы массы (целое число в диапазоне 1–5) и масса тела в этих единицах (вещественное число). Найти массу тела в килограммах.

Решение:

program Case7;
var
  N:Integer;
  m:Real;
begin
  Write('Введите номер единицы измерения массы: ');
  Readln(N);
  Write('Введите массу тела: ');
  Readln(m);
  Case N of
    1: Writeln(m);
    2: Writeln(m/1000000);
    3: Writeln(m/1000);
    4: Writeln(m*1000);
    5: Writeln(m*100);
  end;
end.

program Case7;

var

N:Integer;

m:Real;

begin

Write('Введите номер единицы измерения массы: ');

Readln(N);

Write('Введите массу тела: ');

Readln(m);

Case N of

1: Writeln(m);

2: Writeln(m/1000000);

3: Writeln(m/1000);

4: Writeln(m*1000);

5: Writeln(m*100);

end;

end.

Другие задачи из раздела Case можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Case7

Комментарии:

Добавить комментарий Отменить ответ