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

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

program six;
var dlina:real;
    razmer:integer;
begin
     write('Длина = ');
     readln(dlina);
     writeln('Размерность');
     writeln('1 - дециметр');
     writeln('2 - километр');
     writeln('3 - метр');
     writeln('4 - миллиметр');
     writeln('5 - сантиметр');
     read(razmer);
     case razmer of
          1: writeln(dlina,'дм = ',dlina/10,'м');
          2: writeln(dlina,'км = ',dlina*1000,'м');
          3: writeln(dlina,'м = ',dlina,'м');
          4: writeln(dlina,'мм = ',dlina/1000,'м');
          5: writeln(dlina,'см = ',dlina/100,'м');
     end;
end.

Назад