Решение задач по теме "Оператор выбора Case в Pascal"

Решение задачи №7

program seven;
var massa:real;
    razmer:integer;
begin
     write('Масса = ');
     readln(massa);
     writeln('Размерность');
     writeln('1 - килограмм');
     writeln('2 - миллиграмм');
     writeln('3 - грамм');
     writeln('4 - тонна');
     writeln('5 - центнер');
     read(razmer);
     case razmer 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.

Назад